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ABSTRACT 


ATACM  is  a computer  model  designed  and  built  for  the  Arms  Con- 
trol and  Disarmament  Agency  for  use  in  analyzing  the  impact  of  various 
force  mixes  upon  a tactical  airwar  in  Europe  between  NATO  and  Warsaw  Pact 
forces.  ATACM  models  an  air  campaign  as  a zero-sum  staged  game  and 
employs  dynamic  programming  to  solve  this  game  for  approximate,  optimal 
MAXMIN/MINMAX  aircraft  allocation  strategies  for  the  opposing  sides  at 
each  stage  of  the  campaign.  The  model  permits  multiple  aircraft  types 
with  user-assigned  missions  , numerical  and  fractional  reinforcements  as 
a function  of  stage,  and  user  selection  of  the  objective  function  used  to 
generate  the  optimal  strategies  . 

Descriptions  of  the  problem  formulation  and  the  engagement  and 
optimization  methodologies  used  to  solve  it  are  presented  along  with  a 
user's  guide  and  CDC  6600  FORTRAN  listings.  ^ 
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INTRODUCTION 


The  AC  DA  Tactical  Air  Campaign  Model  (ATACM)  is  a computer  model 
designed  and  built  for  the  Arms  Control  and  Disarmament  Agency  (ACDA)  for 
use  in  analyzing  the  impacts  of  various  Mutual  Balanced  Force  Reduction 
(MBFR)  proposals  upon  a tactical  airwar  in  Europe  between  NATO  and  Warsaw 
Pact  forces.  The  design  of  ATACM  was  based  upon  the  findings  of  a survey 
(Reference  1)  of  existing  tactical  air  models  conducted  by  KETRON  to  assess 
the  applicability  of  existing  models  to  ACDA's  requirements.  Results  of 
the  survey  indicated  the  need  for  a new  model  incorporating  the  most  desir- 
able features  of  existing  models  (e.g.  , TAC  CONTENDER,  VECTOR,  OPTSA, 
DYGAM)  into  a rigorous  optimization  framework  allowing  more  aircraft  types 
and  a wider  selection  of  aircraft  missions. 

As  a realization  of  the  survey's  recommendations,  ATACM  models  an 
air  campaign  as  a zero-sum  staged  game  between  opposing  forces  and  em- 
ploys dynamic  programming  to  solve  this  game  for  approximate,  optimal 
aircraft  allocation  strategies  for  both  sides  at  each  stage  of  the  campaign. 
Because  of  the  economies  associated  with  the  optimization  methodology 
used,  ATACM  offers  many  features  previously  not  practical  in  other  optimiz- 
ing models.  Specifically,  ATACM  permits: 

• as  many  as  four  user-defined  aircraft  types  per  side  and 
as  many  as  eight  different  missions  per  aircraft  type 

• automatic  generation  of  approximate,  optimal,  enforceable 
aircraft  allocation  strategies  as  a function  of  stage  for  any  subset  of  the 
missions  for  which  user-specified  fractions  are  not  supplied.  The  user  may 
specify  all,  part,  or  none  of  the  allocation  fractions  for  a given  aircraft 

type  and  the  model  generates  optimal  values  for  those  fractions  not  specified. 


• calculation  of  firm  upper  and  lower  bounds  on  the  objective 
function  value  associated  with  the  enforceable  strategies  employed 

• option  to  use  a weighted  sum  of  three  different  objective 
functions  as  the  criterion  for  generating  the  optimal  strategies 

• option  to  individually  weight  the  Blue  and  Red  contributions 
to  these  objective  functions  as  a function  of  stage 

• option  to  specify  fractional  or  numerical  reinforcements  for 
any  aircraft  type  as  a function  of  stage 
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Following  sections  present  a description  of  how  the  problem  of 
tactical  air  warfare  is  formulated  in  ATACM , a description  of  the  attrition 
relationships  used  to  evaluate  the  outcomes  of  air-to-air,  air-to-ground, 
and  ground-to-air  engagements,  and  an  outline  of  the  optimization  metho- 
dology used  to  generate  optimal  enforceable  strategies  and  objective  func- 
tion bounds . Appendix  A is  a user's  guide  for  ATACM  which  describes  the 
model's  inputs,  outputs,  and  general  operation.  APPen/jx  B ,pre^n^Rnn 
programming  documentation  and  FORTRAN  listings  coded  for  the  CDC6600. 
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< • PROBLEM  FORMULATION 

. 

ATACM  formulates  a tactical  air  campaign  as  a staged  game  between 
opposing  Blue  and  Red  air  and  ground  forces.  It  generates  for  each  side, 
and  for  each  stage  of  the  war,  strategies  which  optimize  the  utilization  of 
these  forces  over  the  length  of  the  campaign.  Figure  1 presents  a graphical 
representation  of  a general  staged  game  which  depicts  the  roles  of  those 
essential  elements  which  will  be  described  in  detail  in  following  sections. 

In  Figure  1,  for  each  stage  or  time  period  of  the  campaign,  vertical 
planes  represent  the  state  space  of  possible  beginning  and  ending  force 
levels  for  the  opposing  sides.  Corresponding  to  each  point  in  the  beginning 
state  space  for  a given  stage,  a game  matrix  can  be  constructed  with  mt  and 
nt  strategies  available  to  Blue  and  Red  respectively.  The  numbers  of  strate- 
gies, mt  and  n^,  are  a function  of  stage,  while  the  one-stage  payoffs  in  the 
game  matrix  depend  upon  the  starting  resource  levels,  the  objective  func- 
tion chosen  as  a measure  of  overall  performance,  and  the  strategies  selected 
by  both  sides. 

For  a given  strategy  selection  at  the  beginning  of  stage  1,  assess- 
ment relationships  determine  the  value  of  the  payoff  and  the  attrition  or 
losses  suffered  by  both  sides  as  a result  of  the  one-stage  battle.  The 
dashed  line  in  Figure  1 from  stage  1 to  stage  2 depicts  the  effect  of  this 
, attrition  and  shows  that  the  starting  force  levels  for  stage  2 will,  barring 

reinforcements,  generally  be  less  than  those  for  stage  1.  The  decision 
facing  both  sides  at  stage  2 is  analogous  to  that  at  stage  1,  the  only  possible 
difference  being  the  strategies  available  to  each  side  and  the  associated 
one-stage  payoffs.  Once  again  strategies  are  chosen,  the  objective  func- 
tion is  incremented  by  the  corresponding  payoff,  attrition  relationships  map 
the  starting  force  level  for  the  current  stage  into  a new  point  in  the  state 
space  for  the  next  stage,  etc.  This  process  is  repeated  for  the  number  of 
stages  in  the  game,  and  the  value  of  the  objective  function  summed  over  all 
stages  determines  the  outcome  of  the  campaign. 

Within  the  general  framework  depicted  in  Figure  1,  the  key  elements 
in  the  foTTiulation_ of  a tactical  air  war  as  a staged  game  are  the  forces, 
strategies,  and  objective  functions.  The  way  these  elements  are  defined  in 
ATACM  is  described  in  the  following  paragraphs  of  this  section.  The  key 
elements  in  the  solution  of  a tactical  air  war  include  the  assessment  metho- 
dology, used  to  compute  payoffs  and  attrition,  and  the  optimization  metho- 
dology used  to  select  optimal  strategies  at  each  stage  of  tne  campaign. 

These  elements  are  discussed  in  following  sections. 
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OPPOSING  FORCES  AND  MISSIONS 


In  the  ATACM  formulation,  opposing  forces  consist  of  aircraft, 

SAMs , and  ground  divisions  deployed  in  the  stylized  scenario  depicted 
in  Figure  2 . A single  airbase  on  each  side  serves  as  the  staging  area  for 
all  air  missions  flown  against  the  opponent's  SAMs,  ground  troops,  or 
airbase.  SAMs,  which  may  be  interpreted  as  any  type  of  surface-to-air 
defense  weapons,  are  segregated  into  forward  and  rear  components  corres- 
ponding to  the  location  of  the  area  they  defend.  Ground  troops  are  defined 
in  terms  of  homogenous  divisions  fighting  on  either  side  of  a single-sector 
front  (FEBA). 

Aircraft 

As  many  as  four  aircraft  types  can  be  assigned  to  either  side  and 
each  of  these  types  may  be  assigned  as  many  as  eight  missions  chosen 
from  those  listed  in  Table  1.  In  the  course  of  a battle,  forward  and  rear 
SAM  suppressors  (FSS  and  RSS)  deploy  before  other  aircraft  and  suppress 
the  enemy's  SAM  sites.  Afterward,  aircraft  assigned  to  fly  close  air 
support  (CAS)  attack  the  enemy's  ground  troops,  reduce  their  total  firepower, 
and  directly  influence  the  movement  of  the  FEBA.  Airbase  attack  (ABA) 
aircraft  attack  the  opponent's  airbase,  destroy  aircraft  parked  in  shelters 
or  on  the  open  airfield,  and  thus  reduce  the  enemy's  effectiveness  later 
in  the  war.  Close  air  support  and  airbase  attack  escorts  (CASE  and  ABAE) 
accompany  the  CAS  and  ABA  aircraft  on  their  attack  missions  and  provide 
them  protection  from  the  opponent's  battlefield  and  airbase  defenders  (BD 
and  ABD) . Finally,  aircraft  assigned  to  the  Nothing  mission  remain  on  the 
ground  during  the  battle  because  of  the  strength  of  opposing  forces,  main- 
tenance requirements,  unpreparedness  due  to  a surprise  attack,  etc. 


SAMs 

The  mission  of  the  forward  and  rear  SAMs  is  to  defend  the  ground 
troops  and  airbase  by  attacking  and  destroying  enemy  aircraft.  In  prose- 
cuting this  mission,  forward  SAMs  attack  FSS,  CAS,  and  CASE  aircraft  in 
direct  defense  of  the  ground  troops,  as  well  as  RSS,  ABA,  and  ABAE  aircraft 
which  must  fly  over  the  forward  SAMs  to  reach  their  targets  in  the  rear. 

Rear  SAMs  attack  only  those  aircraft  flying  RSS,  ABA,  and  ABAE  missions. 
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TABLE  1 

AIRCRAFT  MISSIONS  PERMITTED  IN  ATACM 


Acronym 

Mission 

CAS 

Close  Air  Support 

ABA 

Airbase  Attack 

BD 

Battlefield  Defense 

ABD 

Airbase  Defense 

CASE 

Close  Air  Support  Escort 

ABAE 

Airbase  Attack  Escort 

FSS 

Forward  SAM  Suppression 

RSS 

Rear  SAM  Suppression 

Nothing 


No  assigned  mission 


Ground  Troops 

Because  ATACM  was  designed  as  a tool  for  studying  the  effects  of 
different  numbers  and  types  of  aircraft  upon  the  outcome  of  an  air  campaign, 
the  ground  representation  is  simplistic  and  serves  primarily  as  an  input  to 
the  figure  of  merit  used  in  the  optimization  process.  Ground  troops  are 
segregated  into  homogeneous  divisions  with  each  division  assigned  a maxi- 
mum firepower  score.  Successful  CAS  sorties  flown  against  the  enemy 
troops  reduce  this  maximum  firepower  by  a specified  amount,  and  FEBA 
movement  is  then  calculated  as  a user-specified  function  of  the  ratio  of 
the  total  net  firepowers  delivered  by  Blue  and  Red  respectively. 

STRATEGIES 

Given  the  forces  and  missions  described  above,  the  strategy  a 
commander  uses  during  a given  time  period  or  stage  is  a fractional  allocation 
of  all  aircraft  to  missions.  For  example,  if  only  one  aircraft  type  is  avail- 
able to  the  Blue  commander,  and  this  aircraft  can  prosecute  four  missions 
selected  from  Table  1,  the  set  of  possible  strategies  from  which  he  may 
choose  can  be  characterized  as  the  set  of  all  4-tuples  whose  elements  are 
positive  fractions  which  sum  to  one.  Examples  include  (.5,  0,  .5,  0), 

(.5,  0,  .2  , .3),  (.25,  .25,  .25,  .25),  etc.  In  the  general  case  of  s 
missions,  s-tuples  representing  possible  fractional  allocations  for  one 
aircraft  type  are  called  decision  vectors  . 

If  the  Blue  commander  has  only  one  aircraft  type,  the  sets  of 
possible  decision  vectors  and  strategies  are  identical.  If  two  aircraft  types 
are  available  to  the  Blue  side,  the  set  of  possible  strategies  corresponds 
to  the  set  of  all  possible  decision  vector  pairs  with  the  first  decision  vector 
representing  allocations  for  aircraft  type  1,  the  second  allocations  for  air- 
craft type  2 . An  example  of  a strategy  for  two  aircraft  types , each  with 
four  possible  missions,  would  be 


((.5,  0,  .5,  0),  (.5,  .2,  .2,  .1)) 


Analogously,  possible  strategies  for  a side  with  three  aircraft  types  can 
be  represented  as  decision  vector  triples,  etc. 

To  limit  the  number  of  decision  vectors  (and  thus  strategies)  from 
which  ATACM  must  choose  an  optimal  allocation,  a parameter  called  a 
minimum  allocation  fraction  is  specified  for  each  aircraft  type.  The  minimum 
allocation  fraction  for  an  aircraft  type  is  the  smallest  fractional  unit  which 
can  be  assigned  to  any  mission.  In  the  case  of  an  aircraft  type  with  four 
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assigned  missions,  a minimum  allocation  fraction  of  .5  limits  the  set  of 
possible  decision  vectors  to  the  following  ten. 


(1,  0,  0,  0) 

(.  5 , 0 , 0 , .5) 
(.  5 , 0,  . 5 , 0) 
(.5,  .5,  0,  0) 
(0,  1,  0,  0) 


(0 , . 5 , 0 , .5) 
(0 , . 5 , . 5 , 0) 
(0,  0,  1,  0) 

(0 , 0 , . 5 , .5) 

(0,  0,  0,  1) 


Correspondingly,  the  number  of  strategies  available  to  a side  with  two, 
three,  or  four  such  aircraft  types  would  be  100,  1000,  or  10,000  respectively, 
In  general,  the  number  of  possible  decision  vectors  V for  an  aircraft  type 
with  s missions  and  a minimum  allocation  fraction  equal  to  1/t  is  given  by 


(s  + t - 1) ! 


(s  -1)!  t! 


In  addition  to  aircraft  types,  missions  assigned,  and  minimum  allo- 
cation fractions,  ATACM  permits  one  other  important  specification  which 
determines  the  set  of  strategies  available  for  a particular  stage  of  the  con- 
flict. The  user  is  allowed  to  specify,  for  any  stage,  a fixed  assignment  of 
aircraft  to  mission  in  terms  of  a multiple  of  the  minimum  allocation  fraction. 
Looking  at  the  previous  example,  the  user  can  force  half  of  the  aircraft  to 
prosecute  the  first  mission  assigned  by  specifying  the  first  element  in  the 
corresponding  decision  vector  to  always  equal  .5.  In  that  case,  the  set 
of  possible  decision  vectors  for  the  specified  stage  and  aircraft  type  reduces 
to  the  following  subset  of  those  shown  above: 


(.5,  0,  0,  .5) 
(. 5 , 0 , . 5 , 0) 
(.  5 , . 5 , 0 , 0) 


The  set  of  all  strategies  generated  from  these  three  decision  vectors  will 
reflect  the  specified  allocation,  and  the  strategy  selected  from  this  set  by 
ATACM  will  optimize  remaining  allocations  over  those  missions  for  which 
fractions  are  not  specified. 


As  can  be  seen  from  this  example,  as  more  and  more  fractions  are 
specified,  the  number  of  possible  decision  vectors  and  strategies  decreases, 
and  the  process  of  strategy  selection  optimizes  over  fewer  and  fewer  missions. 
In  the  extreme  case,  where  all  fractions  in  all  decision  vectors  are  specified, 
the  set  of  strategies  available  at  each  stage  reduces  to  a single  strategy. 
Strategy  selection  then  becomes  a vacuous  operation,  and  the  net  effect  is 
an  evaluation  of  an  air  campaign  using  a user-specified  strategy  at  each 
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stage.  Thus,  depending  upon  the  number  of  mission  allocations  speci- 
fied, ATACM  can  be  used  as  an  optimization,  sub-optimization,  or 
strategy-specified  model. 

OBJECTIVE  FUNCTIONS 

ATACM  permits  the  user  to  select  any  linear  combination  of  three 
objective  functions  to  be  used  as  the  overall  measure  of  the  opposing 
forces'  performance  during  an  air  campaign.  Specifically,  the  overall 
objective  function  used  as  the  criterion  for  strategy  selection  can  be  ex- 
pressed as 

F = Wjfj  + w2f2  + w3f3  (2) 

where  f = difference  of  total  Blue  minus  total  Red  CAS  firepower 

f2  = difference  of  total  Blue  minus  total  Red  (CAS  firepower  + 
ground  firepower) 

fg  = total  FEBA  movement  computed  as  a user-specified  function 
of  the  ratio  of  Blue's  total  ground  firepower  to  Red's 

and  Wj  = user  specified  weight  on  f^ , j = 1,  2 , or  3. 

By  appropriate  choice  of  the  Wj , the  user  can  optimize  using  any 
one  of  the  fj,  or  he  can  generate  hedging  strategies  — those  not  precisely 
optimal  for  any  single  criterion  but  instead  optimal  for  several  criteria 
at  once  — by  specifying  F to  be  a combination  of  the  fj.  Regardless  of 
what  F is  specified,  fj,  f2  , and  f3  are  also  computed  and  recorded  individ- 
uaaly  making  it  possible  to  simultaneously  monitor  the  effects  of  different 
optimization  criteria  on  each  of  the  objective  functions. 

In  addition  to  the  weights  w1(  w2  , and  w3,  ATACM  also  permits 
the  user  to  weight  the  Blue  and  Red  components  of  fj_,  f2 , and  f3  by  stage. 
To  illustrate,  each  f<  can  be  expanded  as  follows: 

T+l 


T =t|>t0ASBt  -rtCASR. 

T+l 

f2  =.2VFPBt  -rtTPPR, 


I 
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T+l 
_ V 


bt  + rt 


FEBA, 


where  T = number  of  stages  in  the  campaign 

I CAS  firepower  delivered  by  side  k during 
stage  t 

residual  value  of  undamaged  aircraft 
on  side  k at  end  of  war 

(total  firepower  (ground  + CAS)  delivered 
by  side  k during  stage  t 

Arrkt  ” ) 

I residual  value  of  undamaged  aircraft  on 
( side  k at  end  of  war 


FEBA, 


j FEBA  movement  during  stage  t 

) 0 


for  t <T 


for  t+T+1 


for  t <T 


for  t+T+1 
for  t<T 
for  t=T+l 


bt  = weight  on  Blue's  contribution  to  the  objective 
function  during  stage  t (bT+1=l) 

rt  = weight  on  Red's  contribution  to  the  objective 
function  during  stage  t (rT+1=l) 

Depending  upon  the  scenario  being  simulated,  the  weights  bt 
and  rt  can  be  used  to  reflect  the  various  effects  of  logistics,  force 
readiness,  pilot  skills,  ground  terrain,  etc.,  all  as  a function  of  stage. 
For  example,  in  the  case  of  a surprise  attack  by  Red,  the  amount  of 
firepower  Blue  can  deliver  per  sortie  during  early  stages  of  the  war 
might  be  severely  limited  by  logistics,  readiness,  etc.  To  simulate 
this  situation,  weights  bt  specified  for  the  first  few  stages  of  the  war 
would  be  smaller  than  those  specified  for  later  stages. 
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ASSESSMENT  METHODOLOGY 

* 

Returning  to  the  general  description  of  a staged  game  depicted  in 
Figure  1,  the  assessment  methodology  computes  the  values  of  the  payoffs 
in  each  game  matrix  and  the  attrition  suffered  by  both  sides  as  a result 
of  each  possible  one-stage  battle.  The  important  considerations  in 
describing  this  methodology  include  the  types  of  engagements  which  may 
occur  between  the  opposing  sides,  the  sequence  in  which  these  engage- 
ments occur  within  each  stage,  and  the  relationships  used  to  compute 
attrition  for  each  type  of  engagement.  An  important  finding  of  the  survey 
of  existing  models  was  the  general  lack  of  agreement  concerning  the  best 
way  to  treat  each  of  these  facets  of  the  assessment  procedure.  The 
assessment  methodology  described  below  is  a mix  of  those  used  in  OPTSA 
and  VECTOR  (References  2 and  3)  and  consequently  suffers  from  some  of 
the  same  limitations  cited  in  Reference  1.  In  consideration  of  these 
limitations,  ATACM  is  purposely  structured  so  that  other,  alternative 
assessment  methodologies  can  be  implemented  with  minimal  programming 
i effort . 


TYPES  OF  ENGAGEMENTS 

In  the  current  version  of  ATACM  the  types  of  engagements  per- 
mitted can  be  classified  as  air-to-air,  air-to-ground,  and  ground-to-air. 

Air-to-air  engagements  occur  when  CAS  and  CASE  aircraft  engage  battle- 
field defenders  or  when  ABA  and  ABAE  aircraft  engage  airbase  defenders. 

Air-to-ground  engagements  occur  when  ABA  aircraft  attack  the  opponent's 

y I 

airbase,  when  SAM  suppressors  attack  the  opponent's  SAMs,  or  when  CAS 
aircraft  deliver  ordnance  against  the  opponent's  ground  troops.  Ground- 
to-air  engagements  occur  between  SAMs  and  opposing  aircraft  flying  SAM 
suppression,  CAS,  CASE,  ABA,  or  ABAE  missions. 

| 

ENGAGEMENT  CYCLES 

The  first  event  in  each  stage  of  the  air  campaign  is  the  addition 

* 

of  any  numerical  or  fractional  aircraft  reinforcements  specified  by  the 
user.  Thereafter,  attrition  and  payoffs  for  each  strategy  pair  are  computed 
and  accumulated  over  a specified  number  of  equal  length  time  periods 
(e.g.  days)  called  engagement  cycles.  The  first  event  in  each  engagement 
cycle  is  the  assignment  of  aircraft  to  missions  according  to  the  strategy 
pair  being  examined.  Then,  using  specified  sortie  rates  per  cycle,  these 
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assignments  are  converted  into  sorties  which  progress  en  masse  through 
the  engagements  described  below. 

FSS  and  RSS  Engagements 

FSS  and  RSS  missions  depicted  in  Figure  3 are  flown  by  each 
side  before  all  other  missions  in  an  attempt  to  clear  corridors  for  sub- 
sequent battlefield  and  airbase  attackers.  SAMs  successfully  attacked 
by  suppressors  are  killed  for  the  duration  of  the  stage  in  which  they  are 
suppressed,  but  are  replaced  or  restored  at  the  beginning  of  the  next 
stage.  SAM  suppressors  successfully  engaged  by  SAMs  or  destroyed  by 
the  opponent's  airbase  attackers  are  lost  for  the  duration  of  the  campaign. 

CAS , CASE , and  BD  Engagements 

The  CAS  CASE,  and  opposing  BD  missions  depicted  in  Figure  4 
are  flown  after  the  SAM  suppressors.  All  air-to-air  engagements  between 
CAS,  CASE,  and  the  opponent's  BD  sorties  are  one-on-one  encounters. 
Excess  attackers  or  defenders  not  engaged  in  one  phase  of  the  engagement 
cycle  proceed  unmolested  to  the  next  phase.  Sorties  which  are  engaged 
abort  their  original  mission,  fight  the  opposing  aircraft,  and,  if  not 
killed,  return  to  their  own  airbase.  Each  successful  CAS  sortie  delivers 
ordnance  on  the  opponent's  ground  troops  and  reduces  their  total  firepower 
(computed  at  the  beginning  of  each  stage  as  number  of  divisions  times 
firepower  per  division)  by  a user-specified  amount.  Thus  ground  troops, 
like  SAMs,  can  be  thought  of  as  being  killed  for  the  duration  of  the  stage 
in  which  they  are  attacked,  but  replaced  at  the  beginning  of  the  next 
stage.  CAS,  CASE,  or  BD  killed  in  air-to-air  engagements  or  destroyed 
by  the  opponent's  airbase  attackers  are  lost  for  the  duration  of  the  cam- 
paign. 

ABA,  ABAE,  and  ABD  Engagements 

The  ABA,  ABAE,  and  opposing  ABD  missions  depicted  in  Figure  5 
are  the  last  missions  flown  in  each  engagement  cycle.  All  air-to-air 
engagements  between  ABA,  ABAE,  and  the  opponent's  ABD  sorties  are 
one-on-one  encounters  treated  in  the  same  way  as  those  described  for 
CAS,  CASE,  and  BD  missions.  Each  successful  ABA  sortie  delivers 
ordnance  on  the  opponent's  airbase  destroying  those  sheltered  and  un- 
sheltered aircraft  specified  as  being  vulnerable  to  airbase  attack. 

Shelters  are  assigned  to  vulnerable  aircraft  types  in  proportion  to  their 
relative  numbers.  Shelters  are  not  destroyed;  damaged  shelters  are 
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assumed  to  be  repaired  by  the  beginning  of  the  next  cycle.  ABA,  ABAE, 
or  ABD  killed  in  air-to-air  engagements  or  destroyed  by  the  opponent's 
airbase  attackers  are  lost  for  the  duration  of  the  campaign. 

ATTRITION  RELATIONSHIPS 

During  the  course  of  the  engagement  cycles  just  described,  all 
aircraft  casualties  due  to  air-to-air  and  ground-to-air  engagements  are 
computed  in  terms  of  sorties  lost.  Surviving  sorties,  which  successfully 
return  to  their  airbase  at  the  end  of  each  cycle,  are  converted  to  aircraft 
before  they  are  subjected  to  airbase  attack  by  dividing  numbers  of  sur- 
viving sorties  by  the  sortie  rates.  The  mathematical  relationships 
used  to  evaluate  sortie  losses  as  well  as  the  attrition  resulting  from 
air-to-ground  engagements  are  described  below. 

Air-to-Air  Engagements 

In  general,  for  each  possible  air-to-air  engagement  shown  in  the 
blocks  of  Figures  4 and  5,  sorties  on  one  side  assigned  to  a generic 
attack  mission,  engage,  in  one-on-one  encounters,  sorties  on  the 
opposing  side  assigned  to  a generic  defense  mission.  Excess  attack 
sorties  not  engaged  in  one  phase  of  the  air-to-air  war  proceed  to  the 
next  phase;  sorties  that  are  engaged  abort  their  assigned  mission, 
prosecute  the  air-to-air  engagement  and,  if  not  killed,  return  immediately 
thereafter  to  their  airbase.  To  describe  how  sortie  attrition  on  both 
sides  is  computed  in  such  an  engagement,  let 

A,  = number  of  attack  sorties  in  the  current  engagement  flown 
by  aircraft  of  type  i 

D = number  of  defense  sorties  in  the  current  engagement  flown 
by  aircraft  of  type  j 


DJk  = 


qji  = 


number  of  the  A.  killed  in  the  current  engagement 

number  of  the  killed  in  the  current  engagement 

probability  an  attack  sortie  of  type  i is  killed  by  a defense 
sortie  of  type  j in  a one-on-one  encounter 

probability  a defense  sortie  of  type  j is  killed  by  an 
attack  sortie  of  type  i in  a one-on-one  encounter 


u t 
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1c  k. 

To  compute  Ai  and  Dj , the  total  numbers  of  attack  and  defense 
sorties  are  first  used  to  compute  E,  the  number  of  one-on-one  encounters, 
as 

E = min  ( ][,  A. , £ D ) (6) 

1 1 ) 1 

The  allocation  of  this  total  to  individual  aircraft  types  is  then  computed 
proportionally  as 


where  E^  represents  the  number  of  one-on-one  encounters  between  attackers 
of  type  i and  defenders  of  type  j . 

Finally,  expected  numbers  of  killed  attack  and  defense  sorties 
flown  by  aircraft  of  types  i and  j respectively  are  computed  as 


> 

*-  x 
ii 

Li  pif 

(8) 

and 

E«  qn 

(9) 

Air-to-Ground  Engagements 

Of  the  three  types  of  air-to-ground  engagements  considered  in 
ATACM,  only  the  SAM  suppression  and  airbase  attack  missions  directly 
produce  losses  among  the  opponent's  forces.  As  described  in  the  dis- 
cussion of  Figure  4,  CAS  sorties  reduce  the  opponent’s  ground  firepowei 
by  a simple  subtractive  rule  which  indirectly  reflects  ground  losses.  By 
contrast,  SAM  and  parked  aircraft  losses  are  computed  using  exponential 
relationships  relating  the  kill  probabilities  and  numbers  of  attackers  (SAM 
suppressors  or  ABA)  to  the  number  of  opponents  (SAMs  or  parked  aircraft). 

j 

SAM  Losses 

To  derive  the  expression  for  SAM  losses  produced  by  generic  (FSS 
or  RSS)  SAM  suppression  sorties,  let 

A,  = number  of  SAM  suppression  sorties  in  the  current  engagement 
flown  by  aircraft  of  type  i 
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D = 


D 


qi 


k _ 


number  of  opposing  SAMs 

number  of  D killed  in  the  current  engagement 

probability  a SAM  is  killed  by  a SAM  suppressor  sortie  of 
type  i 


To  compute  D , the  numbers  of  SAM  suppression  sorties  flown  are 
used  as  weights  to  compute  an  average  probability  of  kill 


(10) 


•?  Ai 


This  probability,  along  with  the  numbers  of  suppression  sorties  and  SAMs 
is  used  to  compute  D*  as 


( 


D = D I 1 - exp  (-  q 


q ...  i ) ) 

D / 


(ii) 


Losses  Due  to  ABA 


The  attrition  relationship  for  computing  the  effect  of  ABA  sorties 
on  parked  aircraft  is  analogous  to  Equation  (11),  the  only  difference  being 
the  number  of  opponent  types . Specifically,  let  - 

A|  = number  of  ABA  sorties  in  the  current  engagement  flown  by 
aircraft  of  type  i 

Dj  = number  of  parked  aircraft  of  type  j vulnerable  to  airbase 
attack.  Vulnerable  aircraft  are  assigned  to  shelters  in 
proportion  to  their  relative  numbers  in  the  inventory;  j=l 

corresponds  to  sheltered  aircraft,  j=2  to  unsheltered, 
k 

Dj  - number  of  D killed  in  the  current  engagement. 

qji  = Probabmty  a vulnerable  aircraft  of  type  j is  killed  by  a 
sortie  flown  by  an  ABA  aircraft  of  type  i 

k 

To  determine  Dj , first  Ejj , the  number  of  attack  sorties  of  each 
type  i assumed  to  attack  vulnerable  aircraft  of  type  j,  is  computed  pro- 


4 

i 

I 


< 


/ 


? 
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E = A.  i U- 

ij  i — 

2 Di 

Using  the  as  weights,  an  average  probability  of  killing  a parked  air- 
craft of  type  j is  computed  as 

? E. . q..  n 

q.  = _J EL  Ji ... 

1 2 E« 

1 


Finally.  D.  is  computed  using  the  standard  exponential  expression 

Dk  = (l-  exp  ( - (14) 


Ground-to-Air  Engagements 

In  ground-to-air  engagements,  SAMs  attack  opposing  sorties  in 
one-on-one  encounters  analogous  to  one-sided  air-to-air  engagements. 

If  the  number  of  opposing  sorties  exceeds  the  number  of  SAMs,  excessive 
sorties  are  not  attacked.  If  the  number  of  SAMs  exceeds  the  number  of 
sorties,  excessive  SAMs  are  not  launched.  To  describe  the  attrition 
produced  by  a generic  SAM  (forward  or  rear)  attack,  let 

A = number  of  SAMs  in  the  current  engagement 

D.  = number  of  target  sorties  in  the  current  engagement  flown  by 
aircraft  of  type  j 


Dk  = 
3 


number  of  Dj  killed  in  the  current  engagement 

probability  a target  sortie  flown  by  an  aircraft  of  type  j is 
killed  by  a SAM  in  a one-on-one  encounter 


To  compute  Dk,  the  total  number  of  SAMs  and  opposing  aircraft 
sorties  are  used  to  compute  E,  the  number  of  one-on-one  encounters,  as 

E = min  (A,  £ D,)  U1 
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Ej  E 


D. 


(16) 


where  Ej  represents  the  number  of  one-on-one  encounters  between  SAMs 
and  target  sorties  of  type  j. 


Finally,  the  expected  number  of  killed  sorties  flown  by  aircraft  of 
type  j is  computed  as 

D*  = E.  Qj  (17) 
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OPTIMIZATION  METHODOI  OGY 


The  methodology  used  to  select  optimal  strategies  for  both  sides 
at  each  stage  of  the  campaign  reflects  the  recommendations  of  the  survey 
presented  in  Reference  1.  The  basic  approach  is  to  select  enforceable 
strategies  which  individually  optimize  each  side's  minimal  performance 
over  the  length  of  the  campaign.  Following  paragraphs  explain  this 
optimization  criterion  in  detail  and  describe  the  dynamic  programming 
methodology  used  to  implement  it. 

MAXMIN/MINMAX  STRATEGIES  AND  PAYOFFS 

In  the  standard  game  matrix  such  as  that  shown  in  Figure  1 the 
possible  objective  functions  used  to  compute  payoffs  to  Blue  are  defined 
such  that  positive  payoffs  indicate  Blue  success.  Blue's  objective  is  to 
choose  that  strategy  which  will  produce  the  largest  payoff,  while  Red's 
objective  is  to  choose  that  strategy  which  will  produce  the  smallest  payoff. 
The  approach  used  in  ATACM  is  to  assume  both  Blue  and  Red  act  con- 
servatively in  choosing  their  strategies.  To  illustrate,  for  a simple  case, 
Figure  6 presents  a game  matrix  for  starting  force  levels  in  a hypothetical 
one-stage  campaign  in  which  Blue  has  five  possible  strategies,  Red  has 
four. 


One-Stage  Game 

Since  Blue  and  Red  are  assumed  to  be  conservative,  each  chooses 
that  strategy  which  will  produce  the  most  favorable  outcome  under  the 
worst  of  circumstances  --  i.e.  prior  knowledge  of  his  selection  by  his 
opponent.  In  the  case  of  Blue,  selection  of  Si  guarantees  a payoff  no 
less  than  1 regardless  of  which  strategy  Red  chooses.  Selection  of  S2 
guarantees  a payoff  no  less  than  0,  S3  no  less  than  -1,  etc.  These 
n inimal  payoffs  (or  row  minimums)  are  shown  in  Figure  6 for  each  possible 
Blue  selection.  Assuming  Red  has  superior  intelligence,  Blue  would 
choose  that  strategy,  S],  which  maximizes  over  the  set  of  minimal  pay- 
offs. Thus  Si  is  called  Blue's  MAXMIN  strategy,  and  1,  the  minimal  payoff 
associated  with  S1#  is  called  the  MAXMIN  payoff  or  objective  function 
value.  The  Red  strategy  §2  which  would  have  to  be  play  against  Si  to 
yield  the  MAXMIN  payoff  is  called  Red's  MAXMIN  strategy. 
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In  the  case  of  Red's  selection,  choice  of  could  result  in  a 
payoff  as  large  as  6 if  Blue  were  to  play  S3,  selection _of  S2  could  result 
in  a payoff  as  large  as  5,  S3  a payoff  as  large  4,  and  S4  a payoff  as 
large  as  3.  Assuming  Blue  has  superior  intelligence,  conservative  Red 
would  choose  that  strategy,  S4,  which  minimizes  over  the  set  of  column 
maximums  shown  in  Figure  6.  Strategy  S4  is  called  Red's  MINMAX 
strategy , S3  is  called  Blue's  MINMAX  strategy,  and  3,  the  payoff  asso- 
ciated with  playing  S4  against  S3  is  called  the  MINMAX  payoff. 

If  Blue  were  to  play  its  MAXMIN  strategy  and  Red  its  MINMAX 
strategy,  the  payoff  which  would  result  is  2.  This  MAXMIN  vs.  MINMAX 
Payoff  will  always  be  greater  than  or  equal  to  the  MAXMIN  payoff  (in 
this  case  1)  and  less  than  or  equal  to  the  MINMAX  payoff  (in  this  case 
3). 

From  this  example,  it  should  be  clear  how  the  optimization 
criterion  used  in  ATACM  would  be  applied  for  a one-stage  campaign. 
Given  the  starting  force  levels,  strategies,  and  objective  function  speci- 
fication, payoffs  in  the  corresponding  game  matrix  would  be  computed 
using  the  assessment  methodology  described  in  the  previous  section. 
Blue's  MAXMIN  strategy  and  payoff  would  be  computed  by  maximizing 
over  row  minimums  while  Red's  MINMAX  strategy  and  payoff  would  be 
computed  by  minimizing  over  column  maximums . Output  would  consist 
of  the  Blue  MAXMIN  strategy,  the  Red  MINMAX  strategy,  the  lower  and 
upper  MAXMIN/MINMAX  objective  function  bounds,  and  the  actual 
MAXMIN  vs.  MINMAX  payoff  which  would  result  if  both  sides  played  their 
conservative  strategies. 


Multi-Stage  Game 


To  understand  how  the  MAXMIN/MINMAX  strategy  selection  pro- 
cedures for  a one-stage  game  extend  to  a multi-stage  game,  it  is  helpful 


to  present  an  alternative  representation  of  a staged  game  called  an 
extended  game  as  shown  in  Figure  7.  In  an  extended  game  representa- 
tion of  a T- stage  air  campaign,  Blue  extended  strategies  are  T-tuples 
whose  tth  element  is  a strategy  selected  from  the  set  of  one-stage 
strategies  Sj , S2  , . . . , S available  to  Blue  at  the  t^  stage  of  the 

ilia. 


campaign.  In  other  words,  the  first  element  in  an  extended  strategy 
for  Blue  is  the  strategy  Blue  would  use  for  stage  1,  the  2nd  element  is 
Blue's  strategy  for  stage  2 , . . . , and  the  Tth  element  is  Blue's  strategy 
for  the  last  stage  of  the  campaign.  The  number  of  possible  extended 
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FIGURE  7 

EXTENDED  GAME  REPRESENTATION 
OF  A T- STAGE  GAME 


TP11  TP12 


TP  TP 
2 1 22 


TP  TP 
Ml  M2 


Blue  Extended  Strategy  = (S.  , SJ  , ... , S 

*1  *2  *T 

where  S^  = Blue  strategy  for  stage  t 

Red  Extended  Strategy  = (S  , S , . . . , S ) 

31  h 3T 

where  S = Red  strategy  for  stage  t 
Jt 


N = nrn2  - *nT 


Total  Payoff  produced  by  playing  ESi  against 
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strategies,  M,  from  which  Blue  may  choose  is 

M = m^  • m^  ‘ m3  ' 

where  mt  equals  the  number  of  possible  Blue  strategies  available  for 
stage  t.  Extended  strategies  for  Red  are  analogous. 

Payoffs  in  an  extended  game  are  total  payoffs  over  the  length  of 
the  campaign  which  result  from  playing  a Blue  extended  strategy  against 
a Red  extended  strategy.  Looking  back  at  Figure  1,  a total  payoff  in  the 
extended  game  depends  upon  the  one-stage  payoffs  and  the  attrition 
represented  by  the  dashed  line.  Each  different  combination  of  Blue-Red 
extended  strategies  corresponds  to  a unique  attrition  path  from  the  state 
space  at  the  beginning  of  stage  1 to  the  state  space  at  the  end  of  stage 
T. 


equal  to 

mT  (18) 


Theoretically,  selection  of  MAXMIN/MINMAX  strategies  in  a 
multi-stage  campaign,  represented  in  the  context  of  the  extended  game, 
is  exactly  the  same  as  that  described  for  a one-stage  game.  Indeed,  for 
a one-stage  campaign  the  extended  game  representation  reduces  to  a 
one-stage  game.  Unfortunately,  for  air  campaigns  with  reasonable  num- 
bers of  strategies  and  stages  the  extended  game  representation  is  valuable 
only  as  an  abstraction  because  of  its  prohibitive  size.  For  example,  if 
Blue  and  Red  each  had  only  2 0 possible  strategies  to  choose  from  at  each 
stage  of  a three  stage  campaign,  the  corresponding  extended  game  would 
be  an  8000  by  8000  matrix  requiring  64  million  three-stage  payoff  evalua- 
tions. Assuming  10-3  seconds  of  computer  time  was  required  for  each 
one-stage  assessment,  evaluation  of  the  payoffs  alone  would  require 
over  50  hours.  Needless  to  say,  a method  other  than  the  straightforward 
solution  of  the  extended  game  is  required  to  determine  MAXMIN/MINMAX 
strategies  for  the  general  multi-stage  campaign. 

DYNAMIC  PROGRAMMING  SOLUTION 

The  reason  the  extended  game  representation  of  modest  sized 
air  campaigns  becomes  untractable  is  that  it  treats  the  problem  of 
strategy  selection  for  all  stages  as  a single  step  process.  An  alternative 
approach,  using  dynamic  programming,  is  to  decompose  the  problem  into 
a series  of  one-stage  problems,  similar  in  many  respects  to  the  way  the 
problem  was  originally  posed  in  Figure  1.  To  illustrate  the  dynamic  pro- 
gramming approach,  its  necessary  to  define  more  precisely  many  of  the 


4 
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concepts  first  presented  there.  For  purposes  of  illustration,  we  will 
assume  Blue  and  Red  each  have  one  aircraft  type  --  more  types  simply 
increase  the  dimensionality  of  the  state  space.  For  this  case,  shown 
in  Figure  8 , let 

X = a point,  (B  , R ) , in  the  state  space  at  the  beginning 

of  stage  t corresponding  to  B^.  and  Rt  aircraft  available 
to  Blue  and  Red  respectively 


s (xt) 
s (xt) 

TP  (Xt) 
TP  (X  ) 


Z.. 

i] 


Blue's  one-stage  MAXMIN  strategy  selection  corres- 
ponding to  Xt 

Red's  one-stage  MINMAX  strategy  selection  corres- 
ponding to  Xt 

the  total  MAXMIN  payoff  associated  with  optimal 
play  by  Blue  from  state  Xt  at  the  beginning  of  stage  t 
to  the  end  of  the  campaign 

the  total  MINMAX  payoff  associated  with  optimal  play 
by  Red  from  state  Xt  at  the  beginning  of  stage  t to  the 
end  of  the  campaign 

payoff  in  the  one-stage  game  matrix  corresponding  to 
selection  of  the  ith  and  jth  strategies  when  in  state  Xt 

state  Xt+1  into  which  selection  of  the  ith  and  jth 
strategies  by  Blue  and  Red  maps  the  state  Xt 


Using  these  definitions,  TP  (X^  and  TP  (Xj)  are  the  desired 
MAXMIN  and  MINMAX  payoffs  associated  with  the  extended  strategies 


ES  (Xj)  = (S  (Xx),  S (X2),  S (X3),  ...,  S (X-p))  (19 

ES  (Xj)  = (S  (Xj),  S (X2),  S (X3),  ...,  S (Xt))  (20 

where  X-^  represents  the  starting  numbers  of  aircraft  at  stage  1 and  the  Xj. 


and  Xt  are  defined  recursively  by 


?3 


zii  (xl> 

X2  Zk£ 

(xx) ' 

?ij  (X2> 

• 

X3  7 

• i • 

(X2) 

\ (XT-1> 

ii  • 

N • 

*■=> 

^T-l^ 

(21 
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with  i 

j 

k 

£ 


index  of  Blue's  MAXMIN  strategy  for  the  current  stage 
index  of  Red's  MAXMIN  strategy  for  the  current  stage 
index  of  Blue's  MINMAX  strategy  for  the  current  stage 
index  of  Red's  MINMAX  strategy  for  the  current  stage 


The  dynamic  programming  approach  for  solving  for  TP  (Xj) , ES  (X\) , 
TP  (Xi),  and  US’  (Xi)  separates  the  solution  for  the  MAXMIN  total  payoff 
and  extended  strategy  from  the  MINMAX  counterparts.  Although  all  des- 
criptions which  follow  concentrate  on  the  MAXMIN  solution,  the  MINMAX 
solution  technique  is  exactly  analogous . 


Idealized  Approach 


To  compute  TP  (Xj)  and  EP  (X^)  using  a general  dynamic  programming 
procedure,  one  begins  at  the  beginning  of  the  last  stage  of  the  campaign 
and  computes  one-stage  MAXMIN  payoffs  and  strategies , TP  (Xp)  and 
S (Xp) , for  all  possible  states  X-p.  The  i,  jth  payoff,  P^ , in  the  MAXMIN 
game  matrix  for  each  state  Xp  is  given  by 


ij 


= P. 


(XT)  + TP  (XT+1 


= 


(xT» 


(22) 


where  Pjj  (XT)  is  the  one-stage  payoff  and  TP  (Xp+1  = Z-  (Xp))  is  the 
contribution  of  undamaged  aircraft  at  the  end  of  the  war,  Bp+i  and  RT+1  # 
to  the  value  of  the  overall  objective  function  (Equation  2). 


After  TP  (Xp)  and  S (X-p)  have  been  computed  for  all  states  X-p,  these 
values  are  stored  and  the  process  moveJ  backward  to  the  beginning  of 
stage  T-l.  Using  the  TP  (X-p)  just  computed,  the  elements  in  the  payoff 
matrix  for  each  stage  Xp+i  are  now  given  by 

(23) 


ij 


Pij  ^T-l^ 


TP  (XT  = 


Z.. 

i] 


(XT-1)} 


where  P^.  v 
1 = Z-H 


(XT_i)  is  the  payoff  contribution  of  the  current  stage  and 
TP  (Xp=  (X-p_i))  is  the  MAXMIN  payoff  associated  with  optimal  play 
thereafter.  Once  again,  a Blue  MAXMIN  strategy  is  computeql  for  each 
game  matrix  along  with  the  cumulative  MAXMIN  payoff  TP  (XT_^)  and  each 
is  stored  for  all  possible  states  Xp_i#  Processing  moves  backward  to 
the  preceding  stage  in  time,  game  matrices  are  generated  for  all  states, 
etc . 


Eventually,  through  this  iterative  process,  strategies  and  payoffs 
can  be  generated  for  all  stages  and  states  from  stage  T back  to  the  begin- 
ning of  stage  1.  Since  Xi , the  hypothesized  starting  resource  level,  is 


1 
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a point  in  the  state  space  at  the  beginning  of  stage  1,  the  solution  is 
complete.  TP  (X|)  is  available  immediately,  while  the  one-stage  strategies 
which  compose  ES  (Xj)  can  be  retrieved  from  storage  by  tracing  through 
the  states  using  the  attrition  map  Z^ . Perhaps  even  more  important,  as 
a by-product  of  the  dynamic  programming  approach,  solutions  for  all  other 
Xt  are  also  available  since  they  have  been  stored  during  the  processing 
required  to  solve  for  . By  simply  retrieving  the  stored  results,  solutions 
for  all  shorter  campaigns  less  than  T stages  which  begin  with  any  number 
of  aircraft  on  either  side  can  be  easily  generated. 


Problems 


Precise  implementation  of  the  general  dynamic  programming  algorithm 
as  described  above  requires  evaluation  of  one-stage  game  for  every  possible 
state  of  every  possible  stage.  The  number  of  such  states  in  a reasonable 
sized  game  is  huge,  even  for  the  case  in  which  each  side  has  only  one  air- 
craft type.  For  example,  each  side  might  reasonably  start  with  1000  air- 
craft, making  the  number  of  possible  (Bj-,  Rt)  pairs  more  than  one  million. 


Intuitively,  one  would  suspect  states  which  differ  by  only  a few 
aircraft  would  produce  approximately  the  same  solution.  ATACM  exploits 
this  intuitive  feel  by  imposing  a descrete  grid  upon  the  state  space  at 
each  stage  in  a manner  analogous  to  that  used  in  DYGAM  (Reference  4) . 

If  a grid  such  as  that  shown  in  Figure  9 were  imposed,  a tractable  approach 
would  be  to  explicitly  compute  one-stage  strategies  and  payoffs  for  only 
the  discrete  grid  points  using  the  dynamic  programming  procedure  described 
above.  Unfortunately,  as  shown  in  Figure  9,  the  Zjj  (Xt)  for  a grid  point 
Xt  would  generally  not  lie  on  a grid  point  in  the  subsequent  stage's  state 
space.  Since  TP  (Z^j  (Xt))  is  necessary  to  compute  the  elements  in  the 
one-stage  game  matrix  (Equation  (22)),  an  approximation  technique  is 
required  for  computing  payoffs  associated  with  points  not  on  the  grid. 


Possible  Approximations 


One  possible  approximation  technique  for  computing  TP  (Xt+1  = 

Zij  (Xt))  would  be  to  linearly  interpolate  using  the  explicit  payoffs  for  grid 
points  adjacent  to  Xt+i-  It  can  be  shown  that  as  the  grid  becomes  finer 
the  strategies  which  would  result  from  using  linear  interpolation  would 
approach  those  produced  by  the  idealized  dynamic  programming  solution. 
Similarly,  the  payoffs  produced  would  approach  the  idealized  lower  bound 
TP  (X]b  but  not  necessarily  from  below.  In  other  words,  although  the 
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approximate  extended  strategy  ES  (X,)  produced  by  - would 

intuitively  be  a good  estimate  of  ES  (X^) , the  associ  .. 

be  greater  than  TP  (Xi)  and  thus  an  invalid  lower  bound  on  the  MAX IV 

vs.  MINMAX  total  payoff. 

A second  possible  approximation  technique,  which  is  guaranteed 
to  produce  a valid  lower  bound  on  TP  0^) , is  to  round  the  number  of  Blue 
aircraft  down  to  an  adjacent  Blue  grid  level  and  the  number  of  Red  a 

craft  u£  to  an  adjacent  Red  grid  level  at  each  stage  As  shovm  in  Figure  , 

such  a rounding  scheme  would  be  equivalent  to  replacing  TP  (Zy  (Xt) 
bv  TP  (ZM  (Xt))  where  ZAj  is  an  approximate  mapping  which  incorporates 
fhe  Bluei’dAn,  Red-up'iounding  criteria.  Because  Blue's  f°rce=  are 
rounded  down  and  Red's  forces  are  rounded  up  at  every  stage, ' 

MAXMIN  payoff  produced  by  such  an  approximation  would  be  less  than 
!TaT  o TP  W . Thus , the  quality  of  the  approximation  Zu  would  affect 
Zy  tll  tightness , not  the  validity,  of  the  MAXMIN  bound  produced.  As 
the  grid  imposed  upon  the  state  space  became  finer,  Zy  woa1^  a^r°a 
Zij  and  the  computed  MAXMIN  payoff  TP  (Xi)  would  approach  TP  (Xi)  

below  as  desired. 

ATACM  Approach 

The  approach  used  in  ATACM  to  generate  an  approximate  MAXMIN 
extended  strategy  and  total  payoff  incorporates  both  of  the  approximation 
techniques  described  above.  Two  separate  dynamic  programming  passes 
are  required  to  generate  the  MAXMIN  components  of  the  solution,  and  tw 
analogous  passes  are  required  for  the  MINMAX  components . 

Looking  only  at  the  MAXMIN  calculations  in  detail,  the  first  pass 
uses  linear  interpolation  exactly  as  described  above  to  generate  an  approxi- 
mate extended  strategy  ES  (Xi).  The  payoffs  TP  (Xt)  ' ed 'after 

stage  and  state  are  used  only  to  compute  ES  (Xx)  and  are  discarded  a 

the  one-stage  strategies  are  stored. 

The  second  pass,  designed  to  produce  a lower  bound  on  the  MAXMIN 
total  payoff  TP  (X,) , uses  the  S (X,)  stored  during  the  first  pass  as ^ fixe 
B°ue  strategies  against  which  Red  performs  a MINMAX  pass  using  the 
ragtag  scheme  described  above.  As  shown  in  Figure  10,  in  this  second 
pass  Se  game  matrix  for  each  stage  and  state  has  only  one  Blue  strategy. 

Column  maximums  in  these  one-stage  games  are  the  s“9‘E^e'S*freeduce, 
payoffs  corresponding  to  each  Blue  strategy,  and  the  MINMAX  pass  re  c . 
S the  calculation  of  the  minimum  payoff  Red  can  achieve  against  ES  (Xj)  • 
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To  see  that  this  second  MINMAX  pass  produces  a lower  bound  on  TP  (X\) , 

\ . 

consider  two  cases. 

• If  ES  (Xj)  is  the  same  as  ES  (Xj) , and  no  Blue-down/ 

Red-up  rounding  is  required,  the  best  Red  can  do  in  the  MINMAX  pass  is 
to  generate  Red's  MAXMIN  extended  strategy,  which,  by  definition,  pro- 
duces a total  payoff  exactly  equal  to  TP  (Xj).  If  rounding  is  required, 
the  total  payoff  would  clearly  be  less  than  or  equal  to  TP  (X^) . 

• If  ES  (Xi)  is  not  equal  to  ES  (Xj) , and  rounding  is  not 
required,  the  minimum  total  payoff  Red  can  achieve  in  the  MINMAX  pass 
is  the  row  minimum  corresponding  to  I?S  (X^)  in  the  extended  game  of 
Figure  10.  Since  TP  (X^)  is  defined  as  the  maximum  over  all  row  minimums, 

TP  (Xl ) must  be  bounded  from  below  by  the  MINMAX  payoff.  As  before, 

if  rounding  is  required  the  value  of  the  MINMAX  payoff  can  only  be  reduced. 

Finally,  after  two  analogous  dynamic  programming  passes  for  com- 
puting estimates  of  Red's  MINMAX  extended  strategy  ES  (X^)  and  the  upper 
objective  function  bound  TP  (X^,  the  solution  is  virtually  complete.  All 
that  remains  is  the  estimation  of  the  MAXMIN  vs.  MINMAX  payoff  for  starting 
state  Xj  which  is  accomplished  by  actually  playing  the  one-stage  strategies 
stored  for  Blue  and  Red  at  each  grid  point.  If  during  this  calculation  a Z^j  (Xt) 
does  not  fall  on  one  of  the  specified  grid  points  the  one-stage  strategies 
stored  for  the  nearest  point  are  used.  As  in  the  case  of  computing  the 
MAXMIN  and  MINMAX  bounds,  the  quality  of  this  approximation  depends 
upon  the  coarseness  of  the  grid  imposed. 
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APPENDIX  A 
AT  ACM  USER'S  GUIDE 


This  appendix  is  a guide  to  the  use  of  ATACM.  Following  sections 
describe  the  inputs,  the  operation,  and  the  outputs  of  the  model. 
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GENERAL  OVERVIEW 


The  computer  model  ATACM  was  developed  by  the  Arms  Control 
and  Disarmament  Agency  as  a tool  for  studying  the  impact  of  various  force 
postures  upon  the  outcome  of  a tactical  airwar  in  Europe  between  NATO 
and  Warsaw  Pact  forces.  ATACM  treats  an  air  campaign  as  a zero-sum 
staged  gamed  between  opposing  forces.  Blue  and  Red,  each  consisting  of 
air  and  ground  forces.  Most  of  the  emphasis  in  the  current  version  of 
ATACM  is  upon  air  force  interactions  although  a simplistic  representation 
of  the  ground  war  is  also  included.  The  model  uses  dynamic  programming 
to  generate  for  each  stage  and  state  of  the  campaign  optimal  aircraft 
allocation  strategies  and  associated  MAXMIN/MINMAX  bounds  on  a user- 
specified  objective  function. 

As  currently  implemented,  ATACM  consists  of  two  FORTRAN  programs, 
ATACM1  and  ATACM2  , designed  for  use  on  a CDC  6600  computer.  ATACM1 
generates  optimal  strategies  and  associated  objective  function  bounds  for 
each  stage  and  state  and  uses  these  values  to  evaluate  the  outcomes  of 
trial  wars  of  specified  length  which  are  initiated  with  user-specified  num- 
bers of  Blue  and  Red  aircraft.  In  addition  to  the  outcomes  of  the  trial 
wars,  ATACM1  can  output  to  magnetic  tape  one-stage  battle  assessments 
(BATTLE-TAPE)  for  use  in  subsequent  runs  of  ATACM1,  and  optimal  strategies 
and  bounds  (TRIAL-TAPE)  for  use  in  subsequent  trial  war  evaluations  using 
ATACM2.  To  evaluate  additional  trial  wars,  ATACM2  reads  the  TRIAL-TAPE 
and  uses  the  information  it  contains  to  process  trial  war  requests  and  pro- 
duce outputs  identical  to  those  which  would  have  been  produced  if  the 
requests  had  been  evaluated  during  the  execution  of  ATACM  1.  Thus,  for  a 
given  set  of  scenario  and  attrition  parameters,  only  a single  execution  of 
ATACM1  is  necessary  regardless  of  when  or  how  many  trial  war  evaluations 
are  eventually  required. 

Figure  A-l  presents  a schematic  representation  of  how  ATACM  1, 
ATACM2  , the  BATTLE-TAPE,  and  the  TRIAL-TAPE  interrelate. 
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AT  AC  M 1 


Required  inputs  to  ATACM1  include  parameters  describing  the 
campaign  scenario  and  the  attrition  relationships  for  air-to-air  and 
air-to-ground  engagements.  Optional  outputs  include  a listing  of  the 
inputs,  the  aircraft  allocation  strategies  available  to  Blue  and  Red,  the 
states  corresponding  to  discrete  numbers  of  Blue  and  Red  aircraft,  the 
outcomes  of  any  trial  wars  requested,  a BATTLE-TAPE  used  to  store  one- 
stage  battle  outcomes  for  subsequent  use  in  perturbation  runs  of  ATACM1, 
and  a TRIAL-TAPE  for  use  in  evaluating  additional  trial  wars  using  ATACM2  . 
To  complement  the  discussions  of  inputs  and  outputs  which  follow.  Figure 
A-2  provides  a logical  flowchart  depicting  the  major  functions  performed  by 
AT  AC  M 1 . 

\ 

INPUTS 

ATACM1  affords  the  user  considerable  ease  and  flexibility  in 
sturcturing  a run  to  satisfy  his  analysis  needs.  Control  parameters  are 
input  on  cards  with  identifying  alphabetic  keys  in  columns  1 thru  5 which 
facilitate  identification  of  inputs  by  the  user  and  eliminate  rigid  sequence 
requirements  for  cards  within  the  data  deck.  Table  A-l  presents  an  alpha- 
betical list  of  the  keys  used  on  the  inputs  cards  recognized  by  ATACM1. 
Depending  upon  the  complexity  of  the  scenario  being  simulated,  the  number 
of  card  types  required  for  a particular  run  can  be  as  few  as  the  six  indicated 
by  asterisks  in  the  table.  Following  paragraphs  describe  in  detail  the 
control  parameters  contained  on  each  of  the  card  types,  their  formats,  and 
default  values  where  applicable. 


Read  Input  raids 
using  KI'APIN 


If  requested,  use  PRNT1N 
to  print  i r for  matted  Input 
parameters 


Using  I NIT: 

• initialize  pointers  and 
counters 

• generate  pute  strategies 
and  print  if  requested 

• generate  states  and 
print  if  requested 

• compute  and  print 
execution  time  estimate 


Complete  execution 
requested 


Tine-stage  battle  out 
comes  available  on 
"V.  tape  / 


Copy  BATTLE-TAPE 
to  scratch  disk 


Generate  one-stage  battle  outcomes 
for  each  state  and  pure  strategy 
combination  using  BATTLE 


Write  outcomes  on  scratch  disk;  if 
requested  also  write  outcomes 
on  BATTLE-TAPE 


Using  GAMES  generate  optimal  MAXM1N/ 
MINMAX  strategies  and  bounds  for  each 
state  and  stage.  Write  on  scratch  disk 
and  on  the  TRIAL-TAPE 


Trial  wars 
requested 


Use  TRIALS  to  read  TRIAL  cards 
and  generate  war  outcomes 


FIGURE  A-2 

LOGICAL  FLOWCHART  OF  ATACM1 


i 
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TABLE  A- 1 


INPUT  CARDS  RECOGNIZED  BY  ATACM1 


Card  Ke\ 


Input  Parameters  It  Contains 


ABAF 


Fraction  of  planes  vulnerable  to  ABA 


CASF 


Firepower  per  CAS  sortie 


DFRC 


Division  firepower  reduction  per  CAS  sortie 


DIVF 


Firepower  per  division 


FEBAM 


FINIS 


GRID 


MISS 


NDIV 


NS  AM 


NSHL 


OWGHT 


PKAA 


Flag  to  signal  the  end  of  scenario  and  attrition  inputs 


FEBA  movement  function 


Flag  to  signal  the  end  of  the  TRIAL  cards 
Grid  levels  for  the  number  of  available  planes 
Missions  assigned  and  associated  sortie  rates 


Number  of  ground  divisions 


Number  of  SAMs 


Number  of  air  base  shelters 


Overall  objective  function  weights 
Probabilities  of  killing  an  air  base  attacker 


PKAD 


Probabilities  of  killing  an  air  base  defender 


PKAE 


Probabilities  of  killing  an  air  base  attacker  escort 


PKBA 


Probabilities  of  killing  a battlefield  attacker 


PKBD 


Probabilities  of  killing  a battlefield  defender 


! 
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ABAF  Card 


One  ABAP  card  for  each  aircraft  type  is  used  to  specify  the  fraction 
of  the  aircraft  assigned  to  each  mission  which  is  vulnerable  to  airbase 
attack.  By  specifying  different  fractions,  aircraft  flying  selected  missions 
can  be  made  invulnerable  or  partially  vulnerable  to  the  opponent's  airbase 
attack.  Generally  larger  fractions  are  more  applicable  for  aircraft  prose- 
cuting missions  close  to  friendly  airbases  (e.g.  , ABD,  BD,  CAS,  and 
forward  SAM  suppression)  than  for  aircraft  flying  missions  deep  in  the 
opponent's  territory  (e.g. , ABA  and  rear  SAM  suppression).  Aircraft  whose 
fractions  are  set  equal  to  zero  might  include  planes  housed  in  impenetrable 
shelters  or  long-range  bombers  flying  from  a sanctuary  base. 


The  ABAF  card  is  read  under 


FORMAT  (A4,  Al,  II,  4X,  8F5.0) 


and  its  fields  are  assigned  as  follows: 
A4  - (1-4)  - "ABAF” 


Al  - (5) 


II  - (6) 


- "ABAF” 

- "B"  or  "R"  to  indicate  the  vulnerability  fractions 
are  for  either  a Blue  or  Red  aircraft  type 

- the  number  of  the  aircraft  type  for  which  the 
fractions  are  applicable 


8F5.0  - (11-50)  - the  fraction  of  the  aircraft  flying  a particular 

mission  which  is  vulnerable  to  airbase  attack. 
The  fraction  specified  in  columns  11-15  corres- 
ponds to  the  1st  mission  assigned  on  the 
associated  MISS  card,  columns  16-2  0 to  the 
2nd,  etc.  Default  value  is  1. 


CASF  Card 


One  CASF  card  for  each  side  is  used  to  specify  the  firepower  delivered 
per  CAS  sortie  flown.  The  units  used  to  specify  firepower  on  the  CAS  card 
must  be  consistent  with  those  used  on  both  the  DFRC  and  the  DIVr  cards. 

The  CASF  card  is  read  under 

FORMAT  (A4,  Al,  5X,  4F5.4) 
and  its  fields  are  defined  as  follows: 


A4  - (1-4) 


- "CASF" 


PAB-249 


A1  - (5)  - "B"  or  "R"  to  indicate  the  firepower  rates  are 

for  either  the  Blue  or  Red  side 

4F5.4  - (11-30)  - the  firepower  delivered  per  CAS  sortie  by  aircraft 

of  types  1 thru  4 respectively.  Default  value  is  0. 

DFRC  Card 

One  DFRC  card  for  each  side  is  used  to  specify  the  ground  division 
firepower  reduction  produced  by  each  CAS  sortie  flown.  The  units  used 
to  specify  firepower  reduction  on  the  DFRC  card  must  be  consistent  with 
those  used  on  both  the  CASF  and  the  DIVF  cards  . The  DFRC  card  is  read 
under 


FORMAT  (A4,  Al,  5X,  4F5 . 4) 
and  its  fields  are  defined  as  follows: 

A4  - (1-4)  - "DFRC" 

Al  - (5)  - "B"  or  "R"  to  indicate  the  ground  division  fire- 

power reductions  are  produced  by  either  a Blue 
or  Red  CAS  sortie. 

4F5.4  - (11-30)  - the  ground  division  firepower  reduction  resulting 

from  a CAS  sortie  flown  by  aircraft  of  types 
1 thru  4 respectively.  Default  value  is  0. 

DIVF  Card 

One  DIVF  card  for  each  side  is  used  to  specify  the  firepower  per 
ground  division.  The  units  used  to  specify  firepower  on  the  DIFV  card  must 
be  consistent  with  those  used  on  both  the  CASF  and  the  DFRC  card.  The 
DIVF  card  is  read  under 

FORMAT  (A4,  Al,  5X,  F5.0) 
and  its  fields  are  assigned  as  follows: 

A4  - (1-4)  - "DIVF" 

Al  - (5)  - "B"  or  "R"  to  indicate  the  firepower  is  specified 

for  each  Blue  or  Red  ground  divisions 

F5.0  - (11-15)  - the  firepower  per  ground  division.  Default  value 

is  0. 
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END  Card 

The  END  card  signals  the  end  of  the  scenario  and  attrition  para- 
meter cards  required  by  ATACM1  and  the  beginning  of  the  optional  TRIAL 
cards.  The  END  card  is  read  under 

FORMAT  (A3) 

and  its  only  field  contains 

A3  - (1-3)  - "END" 

FEBAM  Card 

As  many  as  four  FEBAM  cards  may  be  used  to  specify  the  rate  of 
FEBA  movement  per  cycle  as  a function  of  the  ratio  of  Blue  ground  fire- 
power to  Red  ground  firepower.  Any  functional  relationship  desired  can 
be  input  by  specifying  up  to  2 8 points  that  lie  on  the  graph  of  the  desired 
function . The  model  linearly  interpolates  between  these  points  to  yield 
a piecewise  linear  approximation.  The  quality  of  the  approximation  de- 
pends upon  the  shape  of  the  desired  graph  and  the  number  and  location 
of  points  chosen.  The  coordinates  of  the  points  are  read  from  the 
FEBAM  card  under 

FORMAT  (A5,  II,  4X , 7(2F5.0)) 
and  the  fields  are  assigned  as  follows: 

A5  - (1-5)  - "FEBAM" 

11  " (6)  - card  sequence  number.  Seven  points  (smallest 

firepower  ratio  to  largest)  are  input  on  each  card 
to  a maximum  of  four  cards  or  28  points.  The 
first  card  has  sequence  number  1 , the  second 
card  (if  required)  has  sequence  number  2,  etc. 

7(2F5.0)-(ll-80)  - x and  y coordinates  of  the  ith  point  on  the  graph 

x = ratio  of  Blue  ground  firepower  to 

Red  ground  firepower  (always  positive) 

y = FEBA  movement  per  engagement  cycle 
(positive  movement  corresponds  to 
Blue  advance) 

Default  value  for  (x,y)  is  (0,0). 


A-10 


PAB-249 


FINIS  Card 

The  FINIS  card  signals  the  end  of  the  TRIAL  cards  and  consequently 
the  end  of  the  input  data . The  FINIS  card  is  read  under 

FORMAT  (A5) 

and  its  only  field  contains 

A5  - (1-5)  - "FINIS" 

GRID  Card 

One  GRID  card  for  each  aircraft  type  is  required  to  indicate  the 
discrete  numbers  of  aircraft  for  which  optimal  plays  and  associated  bounds 
are  explicitly  computed.  The  GRID  card  is  read  under 

FORMAT  (A4,  Al,  II,  4X,  1115) 
and  its  fields  are  assigned  as  follows: 

A4  - (1-4)  - "GRID" 

Al  - (5)  - "B"  or  "R"  to  indicate  the  grid  levels  are  for  either 

a Blue  or  Red  aircraft  type 

II  - (6)  - the  number  of  aircraft  type  for  which  the  grid  levels 

are  applicable.  Aircraft  types  are  numbered  in 
ascending  order  from  1 to  4. 

1115  - (11-65)  - the  discrete  numbers  of  aircraft  of  the  specified 
type  for  which  optimal  plays  and  bounds  are  ex- 
plicitly generated.  The  first  grid  level  must  be  0 
followed  by  remaining  grid  levels  listed  in  ascend- 
ing order.  The  maximum  number  of  grid  levels  for 
an  aircraft  type  is  1 1 . The  largest  grid  level 
should  be  the  upper  bound  on  the  initial  number  of 
planes  of  this  type  plus  the  total  number  of  rein- 
forcements which  can  be  added  during  a trial  war. 

MISS  Card 


One  MISS  card  is  required  for  each  aircraft  type  to  specify  its 
minimum  allocation  fraction,  the  missions  it  can  prosecute,  and  the  asso- 
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ciated  sortie  rates.  Each  MISS  card  is  read  under 


FORMAT  (A4,  Al,  11,  4X,  12,  IX,  8(2X,I1),  3X,  8F5.2) 


« 


and  the  fields  are  assigned  as  follows: 
A 4 - (1-4)  - "MISS" 


Al  - (5) 


11  - (6) 

12  - (11-12) 


- "MISS" 

- "B"  or  "R"  to  indicate  the  mission  information  is 
for  either  a Blue  or  Red  aircraft  type 

- the  number  of  the  aircraft  type 

- the  denominator  of  the  minimum  allocation  frac- 
tion for  this  aircraft  type.  The  minimum  alloca- 
tion fraction  is  the  smallest  fraction  of  the  total 
number  of  planes  which  can  be  assigned  to  any 
mission.  All  fractional  assignments  are  integer 
multiples  of  the  minimum  allocation  fraction. 


8(2X,I1)  — (14— 37)  - 


8F5 .2-  (41  -80) 


numerical  codes  (see  Table  A-2)  corresponding 
to  the  missions  to  which  planes  of  the  specified 
type  may  be  assigned.  A maximum  of  eight 
missions  may  be  specified  for  an  aircraft  type. 

sortie  rates  per  engagement  cycle  associated 
with  the  missions  specified  in  the  preceding 
columns.  The  sortie  rates  must  be  specified  in 
the  same  relative  order  as  the  mission  codes. 
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TABLE  A-2 

AIR  MISSION  CODES 

Mission 

Close  air  support  (CAS) 

Airbase  attack  (ABA) 

Battlefield  defense  (BD) 

Airbase  defense  (ABD) 

Close  air  support  escort  (CASE) 
Airbase  attack  escort  (ABAE) 
Forward  SAM  suppression  (FSS) 
Rear  SAM  suppression  (RSS) 

No  assigned  mission 


NDIV  Card 

One  NDIV  card  for  each  side  is  used  to  specify  the  number  of  ground 
divisions  available.  The  NDIV  card  is  read  under 

FORMAT  (A4,  Al,  5X,  15) 

and  its  fields  are  defined  as  follows: 

A-4-(l-4)  - "NDIV" 

_ (5)  _ »b"  or  "R"  to  indicate  the  number  of  divisions 

correspond  to  either  the  Blue  or  Red  side 

15  - (11-15)  - the  number  of  ground  divisions.  Default  value  is  0. 
NSAM  Card 

One  NSAM  card  for  each  side  is  used  to  specify  the  number  of  for- 


Code 

1 

2 

3 

4 

5 

6 

7 

8 
9 
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ward  and  rear  SAMs  available.  The  NSAM  card  is  read  under 

FORMAT  (A4 , A1 , 5X,  215) 
and  its  fields  are  defined  as  follows: 


A4  - (1-4) 
A1  - (5) 

15  - (11-15) 
15  - (16-20) 

NSHL  Card 


"NSAM" 

"B"  or  "R"  to  indicate  the  number  of  SAMs  correspond 
to  either  the  Blue  or  Red  side 

the  number  of  forward  SAMs.  Default  value  is  0. 

the  number  of  rear  SAMs.  Default  value  is  0. 


One  NSHL  card  for  each  side  is  used  to  specify  the  number  of  air- 
craft shelters  available.  The  NSHL  card  is  read  under 

FORMAT  (A4 , A1 , 5X,  15) 

and  its  fields  are  assigned  as  follows: 

A4  - (1-4)  - "NSHL" 

Al  - (5)  - "B"  or  "R"  to  indicate  the  number  of  shelters  corres- 

pond to  either  the  Blue  or  Red  side 

15  - (11-15)  - the  number  of  aircraft  shelters.  Default  value  is  0. 
OWGHT  Card 


The  basic  form  of  the  overall  function  used  to  generate  optimal  con- 
servative strategies  is  given  by 


where 


F = w^fj  +W2f2  + W3f3  (A—  1) 

= difference  of  total  Blue  minus  total  Red  CAS  firepower 

= difference  of  total  Blue  minus  total  Red  (CAS  fire- 
power + ground  firepower) 


and  f3 


= total  FEBA  movement  (positive  movement  corresponds  to 
Blue  advance). 


One  OWGHT  card  is  used  to  specify  the  values  of  the  weights,  wj,  W2 , and 
W3  to  be  used  in  computing  F.  The  OWGHT  card  is  read  under 


FORMAT  (A5 , 5X,  3F5.0) 
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and  its  fields  are  defined  as  follows: 

A5  - (1-5)  - "OWGHT" 

P5 . o - (11-15)  - the  value  of  w,.  Default  value  is  1. 

F5.0  - (16-20)  - the  value  of  w2  . Default  value  is  0. 

F5.0  - (21-25)  - the  value  of  w3  . Default  value  is  0. 

PKAA  Card 

For  each  aircraft  type  assigned  an  airbase  attack  (ABA)  mission,  one 
PKAA  card  is  required  to  specify  the  probabilities  that  such  an  aircraft  is 
killed  by  an  opposing  airbase  defender  or  SAM  in  a one-on-one  engagement. 
The  PKAA  card  is  read  under 

FORMAT  (A4 , Al,  II,  4X,  4F5.3,  5X,  2F5.3) 

and  its  fields  are  defined  as  follows: 

A4  - (1-4)  - "PKAA" 

A1  _ (5)  - "0"  or  "R"  to  indicate  the  ABA  aircraft  belongs  to 

either  the  Blue  or  Red  forces 

XI  _ (6)  - the  number  of  the  ABA  aircraft  type 

4F5 . 3~ (11-30)  - the  probability  the  ABA  aircraft  is  killed  by  opposing 
ABD's  of  types  1 thru  4 respectively.  Default 
value  is  0. 

F5. 3- (36-40)  - the  probability  the  ABA  aircraft  is  killed  by  an 

opposing  forward  SAM.  Default  value  is  0. 

F5 . 3 - (41-45)  ~ the  probability  the  ABA  aircraft  is  killed  by  an 
opposing  rear  SAM.  Default  value  is  0. 


PKAD  Card 

For  each  aircraft  type  assigned  an  airbase  defense  (ABD)  mission, 
one  PKAD  card  is  required  to  specify  the  probabilities  that  such  an  aircraft 
is  killed  by  an  opposing  airbase  attacker  or  airbase  attack  escort  in  a 
one-on-one  engagement.  The  PKAD  card  is  read  under 

FORMAT  (A4,  Al,  II,  4X,  4F5.3,  5X,  4F5.3) 


i 
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and  its  fields  are  assigned  as  follows: 
A4  - (1-4)  - "PKAD" 


A1  - (5) 


II  - (6)  - the  number  of  the  ABD  aircraft  type 

4F5.3-  (11-30)  - the  probability  the  ABD  aircraft  is  killed  by 

opposing  ABA's  of  types  1 thru  4 respectively. 
Default  value  is  0. 

4F5.3-  (36-55)  - the  probability  the  ABD  aircraft  is  killed  by 

opposing  ABA  escorts  of  types  1 thru  4 respec- 
tively. Default  value  is  0. 

PKAE  Card 

For  each  aircraft  type  assigned  an  airbase  attack  escort  (ABAE) 
mission,  one  PKAE  card  is  required  to  specify  the  probabilities  that  such 
an  aircraft  is  killed  by  an  opposing  airbase  defender  or  SAM  in  a one-on- 
one  engagement.  The  PKAE  card  is  read  under 

FORMAT  (A4,  Al,  II,  4X,  4F5.3,  5X,  2F5.3) 
and  its  fields  are  defined  as  follows: 


"B"  or  "R"  to  indicate  the  ABD  aircraft  belongs 
to  either  the  Blue  or  Red  forces 


A4  - (1-4) 
Al  - (5) 

II  - (6) 


- "PKAE" 

- "B"  or  "R"  to  indicate  the  ABAE  aircraft  belongs 
to  either  the  Blue  or  Red  forces 

- the  number  of  the  ABAE  aircraft  type 


4F5.3-  (11-30)  - the  probability  the  ABAE  aircraft  is  killed  by 

opposing  ABD's  of  types  1 thru  4 respectively. 
Default  value  is  0. 

F5.3  - (36-40)  - the  probability  the  ABAE  aircraft  is  killed  by  an 

opposing  forward  SAM.  Default  value  is  0. 

F5.3  - (41-45)  - the  probability  the  ABAE  aircraft  is  killed  by  an 

opposing  rear  SAM.  Default  value  is  0. 

PKBA  Card  

For  each  aircraft  type  assigned  a battlefield  attack  (CAS)  mission, 
one  PKBA  card  is  required  to  specify  the  probabilities  that  such  an  aircraft 
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is  killed  by  an  opposing  battlefield  defender  or  forward  SAM  in  a one-on 
one  engagement.  The  PKBA  card  is  read  under 

FORMAT  (A4 , Al,  II,  4X,  4F5.3,  5X,  F5.3) 

and  its  fields  are  defined  as  follows: 

A4  - (1-4)  - "PKBA" 


Al  - (5) 


- "B"  or  "R"  to  indicate  the  CAS  aircraft  belongs 
to  either  the  Blue  or  Red  forces 

- the  number  of  the  CAS  aircraft  type 


4F5.3-  (11-30)  - the  probability  the  CAS  aircraft  is  killed  by 
opposing  BD's  of  types  1 thru  4 respectively. 
Default  value  is  0. 

F5.3-  (36-40)  - the  probability  the  CAS  aircraft  is  killed  by  an 

opposing  forward  SAM.  Default  value  is  0. 

PKBD  Card 

For  each  aircraft  type  assigned  a battlefield  defense  (BD)  mission, 
one  PKBD  card  is  required  to  specify  the  probabilities  that  such  an  air- 
craft is  killed  by  an  opposing  battlefield  attacker  (CAS)  or  battlefield  attack 
escort  (CASE)  in  a one-on-one  engagement.  The  PKBD  card  is  read  under 

FORMAT  (A4,  Al,  II,  4X,  4F5.3,  5X,  4F5.3) 


and  its  fields  are  defined  as  follows: 


A4  - (1-4) 
Al  - (5) 


- "PKBD" 

- "B"  or  "R"  to  indicate  the  BD  aircraft  belongs  to 
either  the  Blue  or  Red  forces 

- the  number  of  the  BD  aircraft  type 


4F5.3-  (11-30)  - the  probability  the  BD  aircraft  is  killed  by 

opposing  CAS's  of  types  1 thru  4 respectively. 
Default  value  is  0. 

475.3-  (36-55)  - the  probability  the  BD  aircraft  is  killed  by 

opposing  CAS  escorts  of  types  1 thru  4 respec- 
tively. Default  value  is  0. 
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PKBE  Cerd 


For  each  aircraft  type  assigned  a battlefield  attack  escort  (CASE) 
mission,  one  PKBE  card  is  required  to  specify  the  probabilities  that  such 
an  aircraft  is  killed  by  an  opposing  battlefield  defender  or  forward  SAM 
in  a one-on-one  engagement.  The  PKBE  card  is  read  under 

FORMAT  (A4,  Al,  II,  4X,  4F5.3,  5X,  F5.3) 
and  its  fields  are  defined  as  follows: 


A4  - (1-4) 

Al  - (5) 

II  - (6) 

4F5.3-  (11-30) 


- "PKBE" 

- "B"  or  "R"  to  indicate  the  CASE  aircraft  belongs 
to  either  the  Blue  or  Red  forces 

- the  number  of  the  CASE  aircraft  type 

- the  probability  the  CASE  aircraft  is  killed  by 
opposing  BD's  of  types  1 thru  4 respectively. 
Default  value  is  0. 


F5.3-  (36-40)  - the  probability  the  CASE  aircraft  is  killed  by  an 

opposing  forward  SAM.  Default  value  is  0. 


PKFA  Card 


For  each  aircraft  type  assigned  a forward  SAM  suppression  (FSS) 
mission  , one  PKFA  card  is  required  to  specify  the  probability  that  such  an 
aircraft  is  killed  by  an  opposing  forward  SAM  in  a one-on-one  engagement. 
The  PKFA  card  is  read  under 

FORMAT  (A4 , Al,  II,  4X,  F5.3) 
and  its  fields  are  defined  as  follows: 

A 4 - (1-4)  - "PKFA" 

Al  - (5)  - "B"  or  "R"  to  indicate  the  FSS  aircraft  belongs  to 

either  the  Blue  or  Red  forces 

II  - (6)  - the  number  of  the  FSS  aircraft  type 

F5.3-  (11-15)  - the  probability  the  FSS  aircraft  is  killed  by  an 
opposing  forward  SAM.  Default  value  is  0. 
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PKFS  Card 

One  PKFS  card  for  each  side  is  used  to  specify  the  probabilities 
that  a forward  SAM  is  killed  by  forward  SAM  suppressors.  The  PKFS  card 
is  read  under 


FORMAT  (A4,  Al,  5X,  4F5.3) 


and  its  fields  are  defined  as  follows: 


A4  - (1-4) 
Al  - (5) 


4F5.3  - (11-30) 


- "PKFS" 

- "B"  or  "R"  to  indicate  the  SAM  being  attacked 
belongs  to  either  the  Blue  or  Red  forces 

- the  probability  the  SAM  is  killed  by  opposing 
FSS's  of  types  1 thru  4 respectively.  Default 
value  is  0. 


PKNS  Card 


One  PKNS  card  for  each  side  is  used  to  specify  the  probabilities 
that  a non- sheltered  aircraft  on  the  airbase  is  killed  by  airbase  attackers. 
These  kill  probabilities  are  only  applicable  to  the  fraction  specified  as 
vulnerable  to  airbase  attack  on  the  ABAF  card.  The  PKNS  card  is  read  under 

FORMAT  (A4,  Al,  5X,  4F5.3) 
and  its  fields  are  assigned  as  follows: 


A4  - (1-4) 

Al  - (5) 

4F5.3  - (11-30) 


- "PKNS" 

- "B"  or  "R"  to  indicate  the  airbase  being 
attacked  is  either  Blue  or  Red 

- the  probability  a non-sheltered , vulnerable 
aircraft  on  the  airbase  is  killed  by  opposing 
ABA's  of  types  1 thru  4 respectively.  Default 
value  is  0. 
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PKRA  Card 


For  each  aircraft  type  assigned  a rear  SAM  Suppression  (RSS) 
mission,  one  PKRA  card  is  required  to  specify  the  probabilities  that  such 
an  aircraft  is  killed  by  an  opposing  SAM  in  a one-on-one  engagement. 
The  PKRA  card  is  read  under 


FORMAT  (A4,  A1 , II,  4X,  2F5.3) 


and  its  fields  are  defined  as  follows: 


A4  - (1-4)  - "PKRA" 


A1  - (5) 


- "B"  or  "R"  to  indicate  the  RSS  aircraft  belongs  to 
either  the  Blue  or  Red  forces 


II  - (6)  - the  number  of  the  RSS  aircraft  type 

F5.3-  (11-15)  - the  probability  the  RSS  aircraft  is  killed  by  an 
opposing  forward  SAM.  Default  value  is  0. 


F5.3-  (16-20)  - the  probability  the  RSS  aircraft  is  killed  by  an 
opposing  rear  SAM.  Default  value  is  0. 


PKRS  Card 


One  PKRS  card  for  each  side  is  used  to  specify  the  probabilities 
that  a rear  SAM  is  killed  by  rear  SAM  suppressors.  The  PKRS  card  is 
read  under 


FORMAT  (A4,  Al,  5X,  4F5.3) 
and  its  fields  are  assigned  as  follows: 


A4  - (1-4)  - "PKRS" 


Al  - (5) 


- "B"  or  "R"  to  indicate  the  SAM  being  attacked 
belongs  to  either  the  Blue  or  Red  forces 


4F5.3-  (11-30)  - the  probability  the  SAM  is  killed  by  opposing  RSS's 
of  types  1 thru  4 respectively.  Default  value  is  0. 


PKSH  Card 


One  PKSH  card  for  each  side  is  used  to  specify  the  probabilities 
that  a sheltered  aircraft  on  the  airbase  is  killed  by  airbase  attackers. 
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PKSH  card  is  read  under 

FORMAT  (A4,  Al,  5X,  4F5.3) 
and  its  fields  are  assigned  as  follows: 

A4  - (1-4)  - "PKSH" 

Al  - (5)  - "B"  or  "R"  to  indicate  the  airbase  being  attacked 

is  either  Blue  or  Red 

4F5.3-  (11-30)  - the  probability  a sheltered,  vulnerable  aircraft 
on  the  airbase  is  killed  by  opposing  ABA's  of 
types  1 thru  4 respectively.  Default  value  is  0. 

REIN  Card 

The  REIN  card  is  used  to  specify  numerical  and/or  fractional  air- 
craft reinforcements  as  a function  of  stage.  The  REIN  card  is  read  under 

FORMAT  (A4,  Al,  IX,  12,  4F5.0,  5X,  4F5.0) 

and  its  fields  are  assigned  as  follows: 

A4  - (1-4)  - "REIN" 

Al  - (5)  - "B"  or  "R"  to  indicate  the  specified  reinforcements 

are  for  either  the  Blue  or  Red  side 

12  - (7-8)  - the  number  of  the  stage  when  the  reinforcements 

arrive.  In  every  case  reinforcement  occurs  at 
the  beginning  of  the  stage  before  attrition  is 
computed. 

4F5.0-  (11-30)  - the  number  of  aircraft  of  types  1 thru  4 respec- 
tively added  (or  subtracted  if  entry  is  negative) 
at  the  beginning  of  the  specified  stage.  Default 
value  is  0. 

4F5.0-  (36-55)  - the  fractional  increase  (or  decrease  if  entry  is 
negative)  in  the  number  of  aircraft  of  types  1 
thru  4 respectively  at  the  beginning  of  the  speci- 
fied stage.  If  both  a fractional  and  a numerical 
change  are  specified  for  the  same  stage,  the 
fractional  change  is  applied  before  the  numerical 
change.  Default  value  for  the  fractional  change 
is  0. 
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The  RUN  card,  which  must  precede  all  other  input  cards,  contains 
parameters  to  control  input,  execution,  and  output  options.  The  RUN 
card  is  read  under 


FORMAT  (A3,  7X,  811,  2X,  6A10) 


and  its  fields  are  assigned  as  follows: 

A3  -(1-3)-  "RUN" 

II  - (11)  - print  option 

if  0 or  blank  input  parameters  are  printed 
if  1 output  is  suppressed 
II  - (12)  - print  option 

if  0 or  blank  the  sets  of  pure  strategies  available  to 
Blue  and  Red  are  printed 

if  1 output  is  suppressed 

II  - (13)  - print  option 

if  0 or  blank  the  set  of  discrete  states  corresponding 
to  the  number  of  Blue  and  Red  planes  available  is 
printed 

if  1 output  is  suppressed 
II  - (14)  - abort  option 

if  0 or  blank  execution  proceeds  to  normal  termination 

if  1 execution  is  terminated  immediately  after  run- 
time estimates  are  printed 

II  - (15)  - BATTLE-TAPE  option 

if  0 or  blank  one-stage  battle  outcomes  for  each  state 
and  pure  strategy  combination  are  not  available  on 
tape  and  must  be  computed.  The  computed  battle 
outcomes  are  not  written  and  stored  on  the  BATTLE-TAPE 

if  1 one-stage  battle  outcomes  for  each  state  and  pure 
strategy  combination  are  not  available  on  tape  and 
must  be  computed.  The  computed  battle  outcomes  are 
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written  and  stored  on  the  BATTLE-TAPE 


if  2 one-stage  battle  outcomes  for  each  state  and 
pure  strategy  combination  are  read  from  the  BATTLE- 
TAPE 


II  - (16) 


debug  option 

if  0 or  blank  debug  output  is  suppressed 


if  1 one- stage  battle  outcomes  for  each  state  and 
pure  strategy  combination  are  printed 


II  - (17) 


- debug  option 


if  0 or  blank  debug  output  is  suppressed 

if  1 MAXMIN/MINMAX  plays  and  corresponding 
bounds  are  printed  for  each  stage  and  state 


II  - (18) 


- debug  option 


if  0 or  blank  debug  output  is  suppressed 


if  1 beta  weights  used  for  linear  interpolation  are 
printed  each  time  subroutine  BETAS  is  called 


6A10-(21-80)  - optional  run  title 


STAGE  Card 


The  STAGE  card  is  used  to  specify  the  number  of  stages  in  the  cam- 
paign and  the  number  of  engagement  cycles  per  stage.  It  is  read  under 

FORMAT  (A5 , 5X,  12,  2X,  12) 


and  contains  the  following  values: 
A5  - (1-5)  - "STAGE" 

12  - (11-12)  - the  numbei 


12  - (15-16)  - 


the  number  of  stages  in  the  campaign  for  which 
plays  and  associated  bounds  are  generated  (<99) . 
Trial  wars  of  longer  duration  than  the  number  of 
stages  specified  can  not  be  evaluated. 

the  number  of  engagement  cycles  per  stage  (<99) . 
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STRT  Card 

The  STRT  card  is  used  to  specify  any,  all,  or  none  of  the  fractional 
allocations  of  aircraft  to  missions  as  a function  of  stage.  One  STRT  card 
is  required  to  specify  each  time  the  allocation  fractions  change  for  either 
Blue  or  Red  aircraft  types.  If  no  mission  allocation  fractions  are  specified 
for  a given  stage,  ATACMl  optimizes  strategy  selection  from  the  complete 
set  of  possible  pure  strategies;  if  the  mission  allocation  fractions  are 
specified  for  a subset  of  the  missions,  the  model  optimizes  strategy  selec- 
tion from  the  associated  subset  of  possible  pure  strategies;  if  allocation 
fractions  are  specified  for  all  missions,  the  set  of  possible  pure  strategies 
consists  of  a single  strategy  and  optimal  selection  reduces  to  the  selec- 
tion of  this  single  specified  strategy.  Thus  by  using  different  combinations 
of  STRT  cards,  ATACMl  can  be  used  to  evaluate  the  effects  of  Blue,  Red, 
or  both  sides  using  optimal,  sub-optimal,  or  user- specified  strategies 
against  its  opponent. 

The  STRT  card  is  read  under 
( FORMAT  (A4,  Al,  IX,  12,  4 (2X,  812)) 

with  the  fields  defined  as  follows: 

- "STRT" 

- "B"  or  "R"  to  indicate  the  specified  allocations 
are  for  either  the  Blue  or  Red  side 

- the  upper  bound  on  the  rang;e  of  stages  over  which 
the  allocations  specified  are  in  effect.  The 
lower  bound  is  1 plus  the  upper  bound  specified 
on  the  preceding  STRT  card  for  the  same  side. 

The  lower  bound  for  the  first  STRT  card  for  either 
side  is  assumed  to  be  1.  The  upper  bound  for 
the  last  STRT  card  for  either  side  must  be  greater 
than  or  equal  to  the  number  of  stages  specified 
on  the  STAGE  card. 

4(2X,8I2)-(9-80)  - the  fractional  assignments  of  the  ith  aircraft 

type  (1< i<4)  to  its  missions,  specified  as 
integer  multiples  of  the  corresponding  minimum 
allocation  fraction.  Columns  9-26  correspond 
to  aircraft  type  1,  27-44  to  type  2, 

45-62  to  type  3,  63-80  to  type  4.  The 


. %> 


A4  - (1-4) 
Al  - (5) 

12  - (7-8) 

! 
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integer  multiples  for  the  ith  aircraft  type  must 
be  specified  in  the  same  order  as  the  missions 
are  assigned  on  the  MISS  card.  To  indicate 
that  the  allocation  fraction  for  a mission  is 
unspecified,  the  corresponding  2 character 
field  must  be  punched  with  a right- justified 
asterisk  ("  *"). 


TRIAL  Card 

One  TRIAL  card  is  required  for  each  trial  war  evaluation  desired.  If 
input  to  ATACM1 , the  first  TRIAL  card  must  follow  the  END  card  and  the 
last  must  be  followed  by  a FINIS  card.  Each  TRIAL  card  is  read  under 

FORMAT  (A5 , 5X,  12,  2X,  311,  3X,  4F5.0,  5X,  4F5.0) 


and  its  fields  are  assigned  as  follows: 


A5  - (1-5) 

12  - (11-12) 
II  - (15) 


II  - (16) 


II  - (17) 


- "TRIAL" 

- the  number  of  stages  in  the  trial  war 

- print  option 

if  0 or  blank  the  number  of  planes  available  and 
the  objective  function  value  are  printed  for 
every  stage 

if  1 output  is  suppressed 

- print  option 

if  0 or  blank  the  optimal  aircraft  allocation 
strategies  for  Blue  and  Red  are  printed  for  every 
stage 

if  1 output  is  suppressed 

- print  option 

if  0 or  blank  the  values  of  each  of  the  three 
objective  functions  (fj,  f2  / and  f3  as  described 
under  the  OWGHT  card)  are  printed  for  every 
stage 

if  1 output  is  suppressed 


4F5.0-(21-40)  - the  number  of  Blue  aircraft  of  types  1 thru  4 

respectively  available  at  the  beginning  of  the 
trial  war 
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4 F5 . 0—  (46— 65)  - the  number  of  Red  aircraft  of  types  1 thru  4 
respectively  available  at  the  beginning  of 
the  trial  war 

VALU  Card 

One  VALU  card  for  each  side  is  used  to  specify  the  residual  value 
of  an  undamaged  plane  at  the  end  of  the  war.  The  units  used  to  specify 
this  residual  value  should  be  consistent  with  those  used  on  the  CASFcard. 
The  VALU  card  is  read  under 

FORMAT  (A4 , Al,  5X,  4F5.0) 

and  its  fields  are  defined  as  follows: 

A4  - (1-4)  - "VALU" 

Al  - (5)  - "B"  or  "R"  to  indicate  the  values  specified 

apply  to  either  Blue  or  Red  aircraft 

4F5 . 0—  (1 1 —30)  - the  residual  value  of  an  undamaged  aircraft 

of  types  1 thru  4 respectively.  Default  value  is  0. 

WGHT  Card 

Each  component,  f j , of  the  overall  objective  function  described 
under  the  OWGHT  card  (Equation  A-l)  can  be  expanded  as 

T+l 

L = E flt  for  j = 1,  2,  3 (A-2) 

t=l  1 

weighted  difference  of  Blue  minus  Red  CAS  firepower 
delivered  during  stage  t 

bt  CASBt  - rt  CASRt  (A-3) 

weighted  difference  of  Blue  minus  Red  total  firepower 
delivered  during  stage  t 

bt  TFPBt  - rt  IFPRt  (A-4) 

weighted  FEBA  movement  during  stage  t 
bt  + rt 

(FEBA  movement  during  stage  t)  (A-5 ) 

2 


i 
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WGHT  cards  are  used  to  specify  the  values  of  the  weights  bt  and  r^as  a 
function  of  stage . Each  WGHT  card  is  read  under 

FORMAT  (A4,  Al,  IX,  12,  2X,  F5.0) 

and  its  fields  are  assigned  as  follows: 

A4  - ( 1 —4)  - "WGHT" 

_ (5)  _ "B"  or  "R"  to  indicate  whether  the  value 

specified  is  a Blue  or  Red  weight  (b*  or  rt) 

12  - (7-8)  - the  number  of  the  stage  t for  which  the 

specified  weight  is  applicable 

F5.0  - (11-15)  - the  value  of  the  weight.  Default  value  is  1. 

As  an  aid  to  the  user,  Figure  A-3  summarizes  the  formats  of  all 
the  input  cards  described  above  and  the  default  values  used  if  a card  is 
not  supplied.  With  the  exception  of  the  TRIAL  card,  all  cards  for  which 
default  values  are  not  specified  are  required  for  every  run. 

DATA  DECK  STRUCTURE 

As  alluded  to  in  the  descriptions  of  the  individual  cards,  ATACMl 
permits  considerable  freedom  in  the  ordering  of  cards  within  a run  deck. 
Table  A-3  summarizes  the  order  constraints  for  those  card  types  subjec 
to  special  restrictions.  The  only  sequence  requirement  applicable  to .cards 
not  listed  in  the  table  is  that  they  follow  the  RUN  card l and  precede  the 
END  card.  Figure  A- 4 presents  a sample  run  deck  with  the  input  cards  in 

an  ar.neDtable  order. 


figure  A J 
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TABLE  A- 3 

SEQUENCE  RESTRICTIONS  ON  INPUT  CARDS 
TO  ATACM1 


Card  Type  Restriction 


RUN 

First  card  in  the  data  deck 

STRT 

In  ascending  time  sequence  (e.g.,  a STRTB 
card  for  stage  i must  precede  a STRTB  card 
for  stage  j if  i<j) 

END 

Follow  scenario  and  attrition  cards/precede 
the  optional  TRIAL  and  FINIS  cards 

TRIAL 

Follow  the  END  card/precede  the  FINIS  card 
(optional) 

FINIS 

Follow  TRIAL  cards/last  card  in  the  data  deck 
(optional) 

Printed  Output 

Unless  explicitly  suppressed  by  the  print  options  listed  in 
Table  A-4,  every  run  of  ATACM1  prints: 

• both  the  input  deck  and  the  input  parameters 
reformatted  for  readability 

• the  numbers  of  pure  strategies  available  to  Blue  and 

Red 


• lists  of  the  pure  strategies  available  to  Blue  and  Red 

• the  number  of  possible  states 

• a list  of  the  possible  states 


• run-time  estimates 
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FIGURE  A-4 

SAMPLE  RUN  DECK  FOR  ATACM1 
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TABLE  A-4 


RUN  CARD 

PRINT  OPTION  CONTROLS 


To  suppress  the 
print  of:  


Punch  a 1 in  RUN 
card  column 


Input  parameters 


All  possible  strategies  for  Blue  and  Red 
All  possible  states 


If  trial  war  evaluations  are  requested  during  the  execution  of  ATACM1, 
additional  outputs  are  printed  under  the  control  of  the  print  option  para- 
meters on  the  TRIAL  card.  Specifically,  unless  explicitly  suppressed  by 
the  print  options  listed  in  Table  A-5,  every  trial  war  evaluation  prints: 


• the  TRIAL  card  parameters,  the  MAXMIN  and  MINMAX 
bounds  on  the  objective  function,  and  the  value  of  the  objective  function 
produced  by  playing  Blue's  MAXMIN  strategy  against  Red's  MINMAX 
strategy 


• the  number  of  planes  available  on  both  sides  and  the 
value  of  the  objective  function  as  a function  of  stage 


the  optimal  aircraft  allocation  strategies  as  a function 


of  stage 


• the  individual  values  of  the  three  objective  functions 
(i.e.,  Blue-Red  CAS  Firepower,  Blue-Red  Total  Firepower,  and  FEBA 
movement)  listed  as  a function  of  stage 


Figures  A-5  and  A-6,  which  were  produced  by  the  sample  input  deck  of 
Figure  A-4,  illustrate  the  outputs  printed  under  the  control  of  the  RUN  and 
TRIAL  cards  respectively. 


- ■■  — • - 
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TABLE  A- 5 
TRIAL  CARD 

PRINT  OPTION  CONTROLS 


To  suppress  the  print  Punch  a 1 in  TRIAL 

(by  stage)  of; card  column 

Number  of  planes/objective  function  value  15 

Optimal  strategies  for  Blue  and  Red  16 

All  three  objective  function  values  17 


BATTLE-TAPE 


The  BATTLE-TAPE  is  an  optional  output  of  ATACMl  which  contains 
the  one-stage  battle  assessments  computed  in  the  initialization  phase  of 
the  run  (see  Figure  A-2).  The  BATTLE-TAPE  has  two  potential  applications: 

• it  provides  a partial  backup/restart  capability  should 
an  ATACM1  job  be  terminated  abnormally  after  the  battle  assessments  are 
computed,  and 


• it  can  be  used  to  input  rather  than  recompute  battle 
assessments  for  perturbation  runs  of  ATACMl  in  which  those  parameters 
affecting  one-stage  battle  outcomes  are  unchanged. 

The  advisability  of  specifying  a BATTLE-TAPE  as  an  output  of  a 
long-running  ATACMl  job  should  be  obvious.  If  such  a job  aborts  abnor- 
mally after  the  BATTLE-TAPE  is  written,  a rerun  can  be  made  by  simply 
assigning  the  BATTLE-TAPE  as  an  input,  punching  a "2"  in  column  15  of 
the  RUN  card,  and  resubmitting  the  job.  The  resubmitted  job  reads  the 
battle  as:  essments  directly  from  the  BATTLE-TAPE,  thus  saving  the  time 
required  for  their  calculation. 

In  the  case  of  a shorter  run,  the  decision  whether  to  create  a 
BATTLE-TAPE  depends  upon  how  applicable  the  computed  battle  assess- 
ments will  be  to  other  related  runs  of  ATACMl . Table  A-6  lists  those 
input  parameters  which  can  be  changed  without  affecting  one-stage  cattle 
outcomes  and  thus  defines  the  set  of  related  runs  which  may  share  the 
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FIGURE  A- 6 

sampm:  output  printed 
UNDER  CONTROL  OF  TRIAL  CARDS 


TRIAL  CARD  #1 


NUMBER 
TRIAL  OF 
NUMBER  STAGES 


number  of  planes  available 

— BLUE  — — - RED  — 

2 3 4 1 2 3 


400  100 


0 500 


MAXM1N 

BLUE  RED  VS 

• MAXMIN  MINMAX  MINMAX 

0 -10515  9735  -2837 


SJAGE 

number 


TRIAL  NUMBER 


NUMBER  OF  BLUE 
PLANES  AVAILABLE 
12  3 4 


NUMBER  OF  RED  MAXM1N 

...  PLANES  AVAILABLE  VS 

1234  MINMAX 


TOTAL 


STAGE 

— number - 

1 — 

2 


TRIAL  NUMBER  1 

PLANE  ALLOCATION  FRACTIONS  FOR  BLUE 
PLANE  TYPE/MISSION 

— 1/1 — 1/2-  1/7  -1/8  2/3  2/4  2/5  2/6 

--,50  0,00  0,00  -.50  0,00  0.00  .33  ,67 

•50  0,00  *50  0.00  0.00  0.00  .33  .6 7 


1 

TRIAL  NUMBER  1 

PLANE  ALLOCATION  FRACTIONS  FOR  RED 

STAGE  PLANE  TTPE/MISSION 

NUMBER  1/1  1/2  1/3  1 '4 

1 0.00  1.00  0.00-  0.00  . . 

2 1.00  0.00  0.00  0.00 
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FIGURE  A- 6 (cont'd) 


TRIAL  CARD  #1  (cont'd) 


TRIAL  NUMBER  l 


-STAGE 

NUMBER 


BLUE-RED 
— CAS 
FIREPOWtR 


TOTAL 


BLUE-RED 

6RND*AIR 

FIREPOWER 


TOTAL 


FEBA 

MOVEMENT 


TOTAL 


397 

•3279- 


397 

-»2882 


442 

-3279 


442 

-2837 


TRIAL  CARD  #2 


NUMBER  NUMBER  OF  PLANES  AVAILABLE 

—TRIAL  OF  — — BLUE  - *ED 

NUMBER  STAGES  1 2 3 4 1 Z 3 


BLUE 

MAXMIN 


RED 

MINMAX 


MAXMIN 

VS 

M1NMAX 


1 


ft 00  200 


0 600 


-5  721 


5321 


•15 


TRIAL  NUMBER 


STAGE 

number 


BLUE-REO 
— • CAS 
FIREPOWtR 


TOTAL 

0 


blue-red 

grnd*air 

FIREPOWER 


-15 


TOTAL 

-15 


FEIA 

MOVEMENT 


TOTAL 

-1 
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FIGURE  A- 6 (cont'd) 
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TRIAL  CARD  #3 


NUMBER 
TRIAL  OF 
NUMBER  STAGES  i 


NUMBER  OF  PLANES  AVAILABLE 

— BLUE ‘ RED  — 

2 3 4 12  3 


600  300 


0 BOO 


MAXM1N 

BLUE  RED  VS 

MAAM1N  MINMAX  HlNMAX 

-VA12  6660  -1909 


trial  number 


NUMBER  OF  BLUE 

STAGE PLANES  AVAILABLE 

NUMBER  12  3 4 

1 717  254  0 < 

•a 816  295  0 ( 


number  of  red 

PLANES  AVAILABLE 
1 2 3 4 


MAXMIN 

VS 

M1NMAX 


TOTAL 

842 

-1909 


TRIAL  NUMBER  3 

PLANE  "aLLOCAT IOn" FRACTIONS  FOR  BLUE 

stage  "plane  TYPE/MISSION 

NUMBER  -1/1  1/2  1/7  1/a  2/J  2/4  -2/5  2/6 

1 .50.0.00  0.00  .50  0.00  .67  .33  0.00 

2 .50  0.00  .50  0.00  .67  0.00  .33  0.00 
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same  BATTLE-TAPE.  For  example,  to  study  the  sensitivity  of  war  outcomes 
to  reinforcement  policies,  numerous  runs  of  ATACMl  would  be  required  in 
which  only  the  reinforcement  parameters  on  the  REIN  cards  would  change. 
In  such  a case,  since  reinforcement  parameters  are  listed  in  Table  A-6, 
the  BATTLE-TAPE  produced  by  the  first  run  of  ATACMl  could  be  used  to 
input,  rather  than  recompute,  the  one-stage  battle  outcomes  required  by 
the  remaining  runs.  The  only  changes  required  in  the  data  deck  for  one 
of  these  perturbation  runs  would  be  the  changed  REIN  cards  and  a modified 
RUN  card  with  a "2"  punched  in  column  15. 

In  the  CDC  6600  version  of  ATACMl,  the  BATTLE-TAPE  is  assigned 
the  logical  file  name  "TAPE10". 

TABLE  A-6 

INPUT  PARAMETERS  WHICH  DC  NOT  AFFECT 
ONE-STAGE  BATTLE  ASSESSMENTS 


REIN 

STAGE 

VALU 

WGHT 


Param  eters 
Reinforcements 
Number  of  stages 

Residual  value  of  undamaged  plane 
Objective  function  weights  by  stage 


Columns 
11-30,  36-55 
11-12 
11-30 
11-15 


TRIAL- TAPE 

The  TRIAL- TAPE  produced  by  ATACMl  contains  the  values  of  the 
major  COMMON  areas  assigned  during  the  execution  of  ATACMl  as  well 
as  the  optimal  strategies  and  associated  bounds  generated  for  each  state 
and  stage  of  the  campaign.  The  tape  is  used  exclusively  by  ATACM2  to 
input  those  parameters  required  to  evaluate  trial  wars  of  varying  length 
initiated  with  differing  numbers  of  aircraft  available  to  the  opposing  forces 

In  the  CDC  6600  version  of  ATACMl,  the  TRIAL- TAPE  is  assigned 
the  logical  file  name  "TAPE4" . 
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EXECUTION  TIME 

One  of  the  most  important  considerations  in  the  use  of  ATACM1  is 
the  execution  time  required  to  generate  the  results  written  on  the  TRIAI  - 
TAPE.  There  are  three  phases  of  calculation  necessary  for  the  generation 

of  this  tape: 

• SETUP  - the  generation  of  strategies  and  states 

• BATTLES  - the  calculation  and  output  to  scratch  disk 
(and  BATTLE-TAPE  if  requested)  of  one-stage  battle  assessments  for  each 
Blue-Red  strategy  combination 

• GAMES  - the  calculation  of  the  MAXMIN/MINMAX  objec- 
tive function  bounds  and  plays  for  each  stage  and  state 

The  time  required  for  SETUP  is  usually  insignificant  (2  seconds)  compared 
to  the  times  for  BATTLES  and  GAMES.  Run  times  for  these  last  two  phases 
can  range  from  a few  seconds  for  a simple  scenario  to  several  minutes  or 
even  hours  for  the  most  ambitious  requests . 

Time  Estimates 

The  run  time  associated  with  BATTLES  and  GAMES  is  a relatively 
complex  function  of  the  total  number  of  aircraft  types  on  both  sides,  the 
number  of  Blue  and  Red  pure  strategies,  the  size  of  the  state  space,  an 
the  number  of  stages  and  cycles-per-stage  in  the  air  campaign  being  simu- 
lated To  provide  the  user  with  estimates  of  the  CPU  and  IO  times  required 
for  BATTLES  and  GAMES,  all  of  these  variables  were  incorporated  into 
empirical  formulas  derived  from  numerous  test  runs  made  on  the  CDC  6600. 
The  formulas  were  coded  into  the  subroutine  TIMER  which  prints  time  esti- 
mates for  BATTLE  and  GAMES  before  the  calculations  are  performed. 

To  use  the  time  estimates  produced  by  TIMER  to  assess  the  reason- 
ableness of  a particular  run  before  it  is  submitted  for  complete,  execution , 
a preliminary  run  using  the  candidate  data  deck  should  be  submitted  with  a 
1 punched  in  column  14  of  the  RUN  card.  All  outputs  shown  in  Figure  A- 5 
through  the  printing  of  the  time  estimates  are  generated  in  ‘heir  normal 
manner.  However,  execution  is  terminated  )ust  before  the  BATTLES  and 
GAMES  phases  of  computation  begin.  The  output  which  is  generated  per- 
mits verification  of  the  accuracy  of  the  input  data  and  provides  a basis 
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for  determining  whether  the  length  of  time  required  for  a complete  run  is 
acceptable.  Because  of  the  minimal  effort  and  cost  associated  with  such 
a data-and-time  check,  its  use  is  strongly  recommended  for  all  but  the 
simplest  runs . 

Use  of  the  BATTLE -TAPE 

Another  consideration  related  to  the  execution  time  of  ATACM1  is 
the  use  of  the  BATTLE-TAPE.  As  described  under  the  outputs  of  ATACM1, 
use  of  the  BATTLE -TAPE  permits  the  one-stage  battle  assessments  produced 
during  the  BATTLES  phase  of  calculation  to  be  written  and  stored  on  mag- 
netic tape  for  use  in  subsequent  related  runs  of  ATACM1 . Since  the  time 
required  for  the  calculation  of  these  battle  assessments  is  typically  a 
significant  fraction  of  the  total  execution  time,  judicious  job  sequencing 
which  permits  the  use  of  a single  BATTLE-TAPE  for  numerous  runs  of  ATACM1 
will  produce  substantial  savings  in  the  total  computer  time  used. 

DIAGNOSTIC  MESSAGES 

Diagnostic  messages  generated  by  ATACM1  are  classified  in  order 
of  increasing  severity  as 

INFO:  Information  only  — anomaly  is  ignored. 

ERROR:  Processing  error  — job  is  aborted  at  the  end  of 

the  current  subroutine. 

ABORT:  Abort  — job  is  aborted  immediately. 

Messages  which  may  be  produced  by  ATACM1  are  listed  and  interpreted  in 
Table  A-7  in  approximately  the  same  order  they  are  encountered  during  pro- 
gram execution. 
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ATACM2 


As  depicted  in  the  logical  flowchart  of  Figure  A- 7 , the  required 
inputs  to  ATACM2  are  a TRIAL-TAPE  written  by  a previous  run  of  ATACM1 
and  the  TRIAL  cards  requesting  war  evaluations.  In  addition  to  the  out- 
comes of  the  requested  trial  wars , ATACM2  can  print  the  inputs , the 
strategies,  and  the  states  used  in  the  original  run  of  ATACM1  to  generate 
the  TRIAL-TAPE  being  read. 

INPUTS 


The  TRIAL-TAPE  is  the  primary  input  to  ATACM2  and  is  assigned  the 
logical  file  name  "TAPE 4" . The  input  deck  to  ATACM2  consists  of  three 
card  types  described  previously  under  the  discussion  of  ATACM1  s inputs. 
The  first  card  in  the  input  deck  must  be  a RUN  card,  the  last  card  must  be 
a FINIS  card,  and  the  remaining  cards  must  be  TRIAL  cards.  The  formats 
of  all  three  cards  are  identical  to  those  shown  in  Figure  A-3  with  the 
exception  that  RUN  card  parameters  in  columns  14-80  are  ignored  by 
ATACM2  . Figure  A-8  presents  a sample  input  deck  for  ATACM2  . 

OUTPUTS 

The  outputs  produced  by  ATACM2  are  a subset  of  those  produced 
by  ATACM1.  By  specifying  the  print  parameters  described  in  Table  A-3, 
the  user  can  elect  to  print  any  or  all  of  the  following  outputs  under  con- 
trol of  the  RUN  card: 

• the  input  parameters  to  the  original  run  of  ATACM1  which 
generated  the  TRIAL-TAPE 

• lists  of  the  pure  strategies  available  to  Blue  and  Red  in 
the  original  run  of  ATACMl 

• a list  of  the  possible  states  generated  in  the  original  run 

of  ATACMl 

In  addition,  for  each  trial  war  evaluation  requested,  ATACM2  produces  out- 
puts identical  to  those  described  under  the  outputs  of  ATACMl  whicr.  are 
controlled  by  the  print  options  of  Table  A- 4 and  displayed  in  the  serr.ple 
output  of  Figure  A-6. 
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EXECUTION  TIME 


The  execution  time  required  for  ATACM2  is  insignificant  relative 
to  that  required  for  ATACMl.  A typical  run  requesting  the  evaluation  of 
10  trial  wars  of  10  stages  each  will  generally  take  less  than  one  minute. 

DIAGNOSTIC  MESSAGES 

Diagnostic  messages  generated  by  ATACM2  are  classified  according 
to  the  same  scheme  described  under  ATACMl.  Table  A-8  lists  and 
interprets  those  messages  applicable  to  ATACM2  . 
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TABLE  A- 8 

DIAGNOSTIC  MESSAGES  GENERATED  BY  AT  AC  M2 
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APPENDIX  B 


PROGRAMMING  DOCUMENTATION 


This  appendix  presents  programming  documentation  for  ATACM1  and 
ATACM2  . Following  sections  describe  the  storage  requirements  for  the  two 
programs  and  potential  problems  associated  with  converting  them  to  a com- 
puter system  different  from  the  current  CDC6600.  In  addition,  FORTRAN 
listings  and  definitions  of  the  most  frequently  used  variable  names  are  pro- 
vided . 


STORAGE  REQUIREMENTS 

In  its  current  form  ATACM1  requires  approximately  54,000  words  of 
core  storage,  of  which  about  14,000  are  used  for  program  instructions  and 

40.000  are  used  for  array  storage.  In  addition,  approximately  2,000,000 
words  of  scratch  disk  storage,  as  described  in  Table  B-l,  are  requi' "d  for 
a representative  run  of  the  model. 

ATACM2  requires  approximately  40,000  words  of  core  storage,  of 
which  about  8,000  are  used  for  program  instructions  and  32,000  are  used 
for  array  storage.  Scratch  disk  requirements  for  ATACM2  include  those 
shown  for  files  TAPE 7,  TAPE8 , and  TAPE 9 in  Table  B-l  — approximately 

16.000  words  for  a representative  run. 

CONVERSION  TO  A DIFFERENT  COMPUTER 

Both  ATACM1  and  ATACM2  are  coded  in  CDC  6600  FORTRAN  EXTENDED 
which  is  generally  compatible  with  FORTRAN  compilers  available  on  other 
major  computer  systems . Use  of  those  capabilities  of  the  CDC  FORTRAN 
which  are  unique  or  less  standard  was  purposely  avoided  to  minimize  the 
problem  of  program  conversions.  Subroutine  and  variable  names  are  limited 
to  six  characters,  the  standard  H specification  is  used  in  FORMAT  statements 
for  the  output  of  Hollerith  strings,  multiple  assignment  statements  are  not 
used,  etc.  ENCODE  and  DECODE  statements  are  used  extensively  in  the 
subroutine  READIN  but , if  required , they  could  be  eliminated  by  imposing 
more  strict  rules  upon  the  order  of  the  cards  in  the  input  deck. 

Assuming  the  problem  of  FORTRAN  compatibility  can  be  resolved, 
the  only  remaining  obstacles  to  conversion  are  the  core  and  disk  storage 
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requirements  described  above.  Unfortunately,  these  requirements  will 
probably  increase  rather  than  decrease  in  a conversion  to  another  machine 
because  of  the  large  60-bit  word  used  in  the  CDC6600.  The  number  of 
words  required  for  program  instructions  after  conversion  to  a 32  or  36-bit 
word  machine  (e.g.  IBM  or  UNIVAC)  could  be  as  many  as  twice  (60/32  or 
60/36)  the  number  currently  required.  Most  array  and  disk  storage  require- 
ments would  be  unaffected  by  a smaller  word,  the  one  notable  exception 
being  the  storage  used  for  battle  assessments.  In  the  current  versions  of 
ATACMl  and  ATACM2  ten  integer  values  are  required  to  characterize  the 
results  of  each  one-stage  battle  assessment  and  these  are  packed  into  two 
words . Eight  unsigned  integer  values  are  stored  in  one  word  (7  bits  each) , 
and  the  remaining  two  signed  values  are  stored  in  the  other  word  (30  bits 
each).  The  most  natural  allocation  of  these  values  on  machines  with  32 
or  36-bit  words  would  require  four  words  — two  for  the  eight  values  and 
one  word  each  for  the  other  two.  In  a representative  run  such  as  that 
described  in  Table  B-l,  the  one-stage  battle  assessments  for  a single  state 
which  currently  occupy  5,000  words  would  require  10,000  words  in  the 
converted  programs.  Analogously,  the  total  amount  of  scratch  disk  required 
to  store  the  one-stage  battle  assessments  for  all  states  on  TAPE1  (see 
Table  B-l)  would  increase  from  2 to  4 million  words.  To  illustrate  the  im- 
pact of  smaller  words.  Table  B-2  summarizes  current  and  estimated  storage 
requirements  for  both  ATACMl  and  ATACM2  before  and  after  conversion. 

One  final  consideration  in  the  conversion  problem  is  the  possibility 
of  reducing  the  size  or  complexity  of  the  air  campaign  which  can  be  simu- 
lated in  order  to  fit  the  model  to  the  storage  available.  The  major  array 
used  for  variable  storage  in  both  ATACMl  and  ATACM2  is  a singly  dimensioned 
vector  called  XARRAY.  The  location  of  values  in  XARRAY  are  assigned  dynami- 
cally depending  upon  the  number  of  strategies,  number  of  missions,  and 
number  of  states  addressed  in  the  scenario  being  simulated.  The  total  num- 
ber of  words  in  XARRAY  which  are  required  for  a particular  run  is  generated 
by 

Total  Words  Required  = NBST*NBM+NRST*NRM+  (B-l) 

in  XARRAY  2 • NBST  • NRST+ 1 0 * NSTATE 

where  NBST  = number  of  Blue  strategies 

NRST  = number  of  Red  strategies 

NBM  = number  of  Blue  missions  per  strategy 

NRM  = number  of  Red  missions  per  strategy 

NSTATE  = number  of  states 


B-3 
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In  the  current  versions  XARRAY  is  dimensioned  to  be  25,000  words  long, 
the  value  of  NWORK.  If  calculations  using  Equation  B-l  indicate  fewer 
than  25,000  words  are  adequate  for  the  type  of  runs  which  will  be  made 
on  a different  computer,  both  NWORK  and  the  size  of  XARRAY  can  be  reduced 
to  a more  compatible  value*.  The  result  would  be  a commensurate  reduc- 
tion in  the  data  array  storage  requirements  shown  in  Table  B-2  . Although 
additional  reductions  beyond  those  possible  by  changing  NWORK  can  be 
achieved  by  reducing  other  array  dimensions,  such  changes  require  a more 
detailed  understanding  of  the  program  structure  and  would  yield  consider- 
ably smaller  savings  relative  to  the  effort  required. 

FORTRAN  LISTINGS 

Figures  B-l  and  B-2  present  FORTRAN  listings  of  ATACM1  and 
ATACM2  as  written  for  the  CDC6600  system.  Comment  cards  in  the 
listings  describe  the  functions  of  the  various  subroutine  while  Table  B-3 
lists  and  defines  the  variable  names  used  most  frequently  in  the  two  pro- 
grams . 


*The  only  restriction  is  that  NWORK  can  not  be  reduced  below  6600  — the 
length  of  NALOCS  in  READIN. 
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FIGURE  B-l 

ATACMl  USTING 


PROGRAM  ATACMl  (OUTPUT , TAPE  1 *65 « T APE2 , T APE3 ♦ TAPE4=6S, 

1 T APt5»  TAPE.6=OUTPUT  »TAPE7=65,T  APE8*65» T APE9*65» T APE 1 0*65) 


C 

c 

c 

— €— 

c 

- c 
c 

— C- 

c 

— c — 

C 

- — c — 

c 

-_C  — 


ATACMl 


VERSION  1.0 


MAY*  1975 


100 

no 


/ATACMl/  IS  THE  MAIN  PROGRAM  OF  THE  ACDA  TACTICAL  AIR 
CAMPAIGN  MODEL  WRITTEN  PY  KETRON,  INC.  FOR  THE  US  ARMS 
_ -—-CONTROL  ANO  DISARMAMENT  AGENCY.  /ATACMl/  CALLS  THE 

SUBROUTINES  USEO  TO  PRODUCE  OPTIMAL  CONSERVATIVE  PLAYS 

ANO  ASSOCIATED  MAXMIN/M1NMAX  OBJECTIVt  FUNCTION  VALUES 

FOR  ALL  STAGES  ANO  STATES  OF  THE  CAMPAIGN. 

COMMON  /INPUT/  1 M I SS (8 ,4 ,2 ) , IGR I D < 1 1 , 4 , 2 ) »L ASTP , N ALOC ( 8 .4) , 

1NFRAC (A«2) *NSHL  <21 «NST AGE *NDAPST * C ASF (4.2) , lPRINl (8) , 

1 ITITLE<6)  * VA|.U<A*2)  ,PKB0(4,4,2)  tPKBOES  ( A * A * 2)  , XGRlDd  1 .4,2) , 
1PKAD(A,A*2) .PKADES (4,4.2) *PKHA < A « A *2) , PK AA (4 ,4 , 2 ) » 

1PKESBO ( A* A • 2 ) *PKESAO(A,A«2) , PKSH (A* 2 ) *PKNS ( A* 2) , REIN ( A , 2*  1 00 ) * 
-1WGHT (100*2) *XSORT  <8*A*2) , NDI V (2 ) *OwGHT (5) »NRSAM(2) *NF SAM (2)  *- 
1PKRS (A  *2) *PKFS  < A, 2 ) ,ABAF(8*A*2) *DI VFP (2 ) .PKBAFS (A, 2)  ♦ 

1 PKAAFS  ( A* 2 ) , PC.  4ARS  < A*  2 ) *PKAEFS(4*2)  *PKAERS(A*2)  »PKBEFS(4»2)  * 

1PKF  AFS  ( A * 2 ) * PKRAF S < A*  2-)  *PKRARS(A,2)  .DFPRED (4 ,2 ) .FEBA ( 2 , 28) » 

IRE  INF (A*  2 « 1 00 ) 

1 COMMON  /WORKN/  NT YPE (2) ,NMI SS (4, 2) , NM’SST ( 2) , NGR 1 D ( 4, 2 ) , 

1 IBLURO (2) *NSTRAT(a,2) ,NFULST(2) *NST AT.NlNGAM* IMPNT (32.2) . 

1 1 TPNT (32*2) .IDEM (8) *NSTRTC(2)*IRA(100)  .JRA(loO) .LUNl.LUNO* 
1NW0RK.NSTAT2.ISINT (500,2) . I DINT ( 1 00 .2 ) , I NPNT (32.2) 

COMMON  /WORKl/  LOCST (500 .2 ) .LOCBO.LOCEG .KOCBG .KOCEG.LOCBVR. 
lLOCBVB.LOCEVR.LOCEVb.LOCBPR.LOCBPB.LOCEPR.LOCEPB, 

1 KOCB VB ,KOCE  VB  * KOCB VR . KOCEVR , JOCB VB .UOCEVB  » JOCBVR . JOCEVR . 

-1IOCBVB.IOCEVB.IOCBVR.IOCEVH  

COMMON  /WORK/  XARRAY (25000) 

— COMMON  /ERROR/  IERR 

DIMENSION  INPUTZ (2680 ) , WORKNZ ( 16A0 ) . WORKLZ ( 1 02A) .WORKZ (25000) 

— DIMENSION  I ARRAY  ( 1) 

DIMENSION  NAMES (6) 

-EQUIVALENCE  ( IMISS. INPUTZ) , (NTYPE , WORKNZ) . (LOCST .WORKLZ) 
EQUIVALENCE  (XARRAY, I ARRAY, WORKZ) 

DATA ( (NAMES (I) »I“l,5)=5HSTART  »6HRE ADI N, 6HPRNTIN. bHBATTLE»5HGAMES ) 

DATA (NAMES (6) *6HT RIALS) 

. DATA  (IERR*=0)  - — 

CALL  SECOND(T) 

WRITE  (LUNO, 1 00 ) T .NAMES ( 1 ) 

FORMAT (/1X.F9.3.2AH  CPU  SECONDS  USED  AFTER  »A10> 

I*T10CALL (X) 

WRITE (LUNO, 110)  T.NAMES(l) 

F0RMAT(1X,F9.3» 2AM  I/O  SECONDS  USED  AFTER  ,A10/> 

ierr»o 


CALL  REAOIN  — 

CALL  SECONO(T) 

-WRITE (LUNO ,100)  T .NAMES (2) 
T *T IOCALL (X) 

WR I TE (LUNO ,110) 

IF (IERR  .EQ.  1) 
IFUPRJNT(l)  .EQ 
CALL  SECOND (T) 


T .NAMES (2) 

Call  erro) 

0)  CALL  PRNTIN 


00110 
00120 
00130 
00140 
00150 
OOlbO 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
002b0 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
0 0690 
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FIGURE  B-l  (cont'd) 


WHITE (LUN0.100) 
T«T 10CALL (X) 
WRITE(LUNO.llO) 
CALL  1NIT 
CALL  SECONO(T) 
WRITE  (LUNO. 100) 
T-TIOCALL(X) 
WRITE  ILUNOt 1 10) 
IF ( IERR  .EQ.  11 
CALL  GAMES 
CALL  SECONO(T) 
WRITE (LUNO • 100 1 
T«T 10CALL (X)~ 
WRI TE (LUNOt 1 10) 
IF  (IERR  .EO.  1) 


T.NAMESO) 
T i NAMES (3) 


T.NAMES(A) 

T.NAM£S(4I 
CALL  ERR  (1  > 


T.NAMES(5) 

T «NAME5 (5) 
CALL  ERR  (1) 


C WRITE  COMMON  BLOCKS  TO  THE  TRIAL-TAPE  TO  BE  USED  FOR 

C SUBSEQUENT  SENSITIVITY  ANALYSES 

• C BUFFER  OUT  (4.1)  (INPUTZ»1NPUTZ(26B0> > 

IF  (UNIT  (4)  ) 200.150*150-  --  - 

150  CALL  ERR  111! 

200 BUFFER  OUT  (4.1)  IWORKNZ.WORKNZ ( 1640 ) ) •- 

IF (UNIT (41 ) 300.150.150 

300—  BUFFER  OUT  (4.1)  (WORKlZ. WORKLZ (1024) ) 

IF (UNIT (4| ) 400.150.150 

400 BUFFER  OUT  (4.11  (WORKZ. WORKZ (NWORK) ) - 

IF (UNIT  (4) ) . 500.150.150 


C WRITE  VALUE  ANO  PLAY  OUTCOMES  FOR  EACH  STAGE  AND 

c state  ON  THE- TRIAL-TAPE  ANO  ON  SCRATCH  DISK 

C 

— 500— 00  600  I-l.NSTAGE  

CALL  REAOMS(2. I ARRAY (LOCBVB) .NSTAT2. I ) 

BUFFER  OUT  (4.U  < 1 ARRAY  (LOCBVB ).  I ARRAY  (LOCEVR)  ) ... 

IF (UNIT (41 ) 520.150.150 

_ 520 CALL  READMSO.  IARRAY  (LOCBPB)  .NSTAT2.I)  — 

BUFFER  OUT  (4.1)  ( I ARRAY (LOCBPB >. I ARRAY (LOCEPR) ) 

IF (UNIT (41 ) 530.150.150  _ _ . 

530  BUFFER  OUT  (7.1)  ( IARRAY (LOCBVB) * IARRAY (LOCEVR) ) 
IF (UNIT (7) ) 550.540.540  

550 BUFFER  OUT  (8.1)  (IARRAY  (LOCBPB)  .IARRAY  (LOCEPR) ) ... 

IF (UNIT (8) ) 600.560.560 

560 CALL  ERR  ( 13) — - 

600  CONTINUE 

CALL  TRIALS  ; — 

CALL  SECONO(T) 

WRITE  (LUNO.  100)  T.NAMES(6> 

T«T IOCALL (X) 

WRI  TE  (LUNO  « 1 10 ) T.NAMES(6) — 

ENO 


00700 

00710 

00720 
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00740 
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00770 

007U0 

00790 
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00840 
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00910 

00920 
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00940 

009S0 

00960 

00970 

00980 
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01010 

01020 

01030 

01040 
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FIGURE  B-  1 (cont'd) 


SUBROUTINE  BATTLE  - 

/BATTLE/  COMPUTES  THE  RtSULTS  OF  A QNL-STAGE  ENGAGEMENT 
BETWEEN  SPECIFIED  NUMBERS  OF  BLUE  AND  RED  GROUND  AND  AlR 

forces  allocated  to  missions  according  to  specified  

strategies. 

COMMON  /INPUT/  IMISS (8*4*21 *IGRID(11*4*2) *LASTP«NALOC (8*4 ) * 

1NFRAC (4*2) *NSHL (2) *NSTAGE*NOAPST  *CASF (4*  2) * IPRINT (8) * 

1 ITI TLE (6) * VAL  U (4*2) *PKBD(4*4*2»  « PKBDES (4 * 4 * 2) * X&R ID ( 1 1 *4 *2)  * 
1PKAD( 4*4*2) * °K AOES (4  *4 , 2 ) ,PKH A (4 *4* 2) * PK A A (4 *4 • 2) * 

1PKESBD( 4*4.2) *PKESAD (4,4 « 2) ,PKSH (4 * 2) .PKNS (4  * 2 ) *RE IN (4 ,2 * 1 00 > * 
1WGHT (100*2) » XSOKT (8*4*2) »NDIV(2> ,0WGHT (S) *NRSAM(2) ,NFSAM(2>  * 
1PKRS (4,2 ) *PKFS (4,2) * ABAF ( 8 * 4, 2 > * DI VFP (2 ) *PK8AFS(4*2) * 

1PKAAFS (4*2) .PKAARS (4*2) *PKAEFS(4,2) , PK AERS (4 , 2 > *PKBEFS (4* 2 > , 
1PKF  AFS (4*  2 ) .PKRAFS (4*2) *PKRARS(4,2) *DFPPEO(4*2) *FEBA(2,28) « 
1REINF(4, 2*100) 

COMMON  /WORKN/  N TYPE (2) ,NMISS(4,2) *NMISST (2) *NGRID(4*2) * 

1 IBLURD  (2 '/  tNSTRAT  (4,2)  .NFULST  (2)  * NST  AT  * N I NGAM , IMPNT  (32*2)  * 

1 ITPNT (32*2) * IDEM (8) .NSTRTC (2) *IRA(lO0)*JRA(lOO>  *LUNl*LUNO* 

1NWORK.NSTAT2.ISINT (500,2) * IDINT (100*2) . INPNT (32.2) 

COMMON  /WORKL/  LOCST (500 ,2 ) *L0CB8* LOCEG * KUCWG .KOCEG.LOCBVR * 
ILOCBVB.LOCEVH.LOCEVB.LOCBPR.LOCBPB.LOCEPR.LOCEPB. 

1K0CBVB*K0CEVH*K0CBVR»K0CEVR* JOCBVB* JOCEVB* jocbvr* jocevr* 
-1IOCBVB* JOCEVB.IOCBVR.IOCEVR  - — - - — ---- 


c 

c — 
c 

-€ — 

c 


c 

c- 

c 

c 


c 

c 

c 


CODES  FOR  AIR  MISSIONS 
1 - CAS 

2 - aba  — - - 

3 - BD 

4 - ABO  — 

5 - CAS  ESCORT 
— 6 - ABA  ESCORT 

7 _ poRWARD  DEFENSE  SUPPRESSION 

8 - HEAR  DEFENSE  SUPPRESSION 

9 - NOTHING 


50 


COMMON  /WORK/  XARRAY (25000) 

DIMENSION  IARRAY(1) 

-EQUIVALENCE  (XARRAY* IARRAY) 

COMMON  /BPARM/  CNP (4  * 2) • I BR (2 ) * XNP ( 9 *4  * 2 ) * OB JEC (2  * 5) 

DIMENSION  TNP (9*2) ,REMP (4*2) *TCASO(2) *T0TFP<2>  *KF  SAM (2) * HRS AM (2) 
DIMENSION  YNP  (9*4,2)  ,TFIRE(2)  *CASO  (2>_*CNPV  (4)  " , 

OATA(XNP«72(0.) » * (YNP«72(0.)  > — • * - - 

TMOVE=0. 

DO  50  K*I*2 - •-  — 

TCASO(K)=0. 

TOTFP (K) »0  . 

RFSAM (K ) “NFSAM (K> 

RRSAM(K)»NRSAM(K> 

CONTINUE 

DO  900  N«I*NDAPST 
XMO VE*0 . 

00  100  M»I,9  . 

DO  100  K*1 *2 

TNP(M,K)»0.  - 
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FIGURE  B-l  (cont'd) 

CONTINUE 

determine  number  of  sorties  allocated  to  each  mission 

DO  110  K-l«2 
CASO<K)=0. 

TFIRE(K) *NDI  V <K)#D1VFP(K) 

IUP*NM ISST (K ) ------ 

1ST«18R(KI 

IST«LOCST(IST.K)-l ■ — 

DO  110  I-l.IUP 
-IST*1ST*1 
L*INPNT ( I • K I 

M«IMPNT(I«KI  ■ - 

J*ITPNT  ( I «K) 

XNPlMt J»K)*X ARRAY (1ST) »CNP<J»K»»XSORT (Lt J*K> 

YNP (M  » J.K ) = XnP<M*J*K) 

TNP(M.K>*TNP(M.K) ♦XNP(M»J»K> 

CONTINUE 


C 

c 


BATTLE  ASSESSMENT 


.DO  200  K*l»2 
L*3-K 

XFSAM*RFSAM(L> 
XRSAM*RR5 AM (L ) 
lHll-NTYPE(K) 


FORWARD  SAM  SUPPRESSORS  VS  FORWARD  SAMS 


115 

C 

-C 

c 


IF (XFSAM  .EO.  0.1  GO  TO  125 

SUM$*0»  

DO  115  1*1 « 1HI 1 

SUMS*SUMS*XNP<7»I»K>*PKFSIltU 

CONTINUE 

RFSAM (LI *XFSAM*EXP < -SUMS/XFSAM) 


-FORWARO  -SAMS  VS  FORWARD  SAM  SUPPRESSORS 


-U0 

c 

C — 


XOPP  »TNP(7.KI 

IF ( XOPP  .EQ.  0.)  GO  TO  125 
XNENG*AMIN1 (XOPPtXFSAM) 
RO-XNENG/XOPP 

DO  120  1*1 t IHI U - 

XNPS*XNP<7» I.KI 

XN*RO*XNPS*PKFAFSU»K) 

XNP<7.I.K)*XNP<7iI»K)-XN 

CONTINUE  


REMAINING  FORWARO  SAMS  VS  REAR  SAM  SUPPRESSORS 


C 

125 


X0PP*TNP(9»K) 

IF  < XOPP  .EO.  0.)  GO  TO  200 

XFSAM*RFSAM<L>  - - 

1FIXFSAM  .EQ.  0.1  GO  TO  140 
XNENG*AMIN1 (XOPPfXFSAM) 
RO*XNENG/XOPP 
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FIGURE  B-l  (cont'd) 


00  130  1*1 t IHl I 
XNPS*XNP  C 8 • 1 • K > 
XN=RO«XNPS#PKRAFS( I *K) 
XNP(8.I.K)*XNPS~XN 
X0PP*X0PP-XN 
CONTINUE 


REMAINING  REAR  SAM  SUPPRESSORS  VS  REAR  SAMS 


IF (XOPP  .LE.  0.)  GO  TO  200 
If ( XRSAM  .£Q.  0.)  GO  TO  155 
SUMS*0. 

00  145  1*1  * IHl  1 

SUMS* SUM S*XNP < 8 * I «K  > »PKRS ( I tU 
CONTINUE  „ , ■ ~ 

RRSAM (L) *XRSAM*EXP  (-SUMS/XRSAM) 

REAR  SAMS  VS  REMAINING  REAR  SAM  SUPPRESSORS 

XNENG=AMIN1 (XOPP. XRSAM) 

R0*XNEN5/X0PP 

00  150  I*l.lHll 

XNPS*XNP (8#  I «K).  

xn*ro*xnps#pk.wars ( I .K)  . 

XNP(8*. iK)*XNPS”XN  

■ XOPP*KOPP-XN 

CONTINUE  — - 

_ FORWARD lSAMS  VS  RETURNING  REAR  SAM  SUPPRESSORS^ 

IF_(X0PP  .LE.  0.)  GO  TO  200  

IF (Xf SAM  .EQ.  0.)  GO  TO  200 
XNENG=AMIN1 UOPP.XFSAM) 

RO*XNENG/XOPP 

-00  160  I*I.lHlI  

XNPS*XNP (8. I «K) 

XN*RO*XNPS*PKRAFS(I »K) 

XNP(8.I.K)*XNPS-XN 

CONTINUE  - --  - - 

CONTINUE 

00  700  K*1 .2  

IHIl-NTYPE(K) 

IHI2*NTYPE(L) ~ 

XFSAM*RFSAM(L) 

XRSAM*RRSAM(L» 


FORWARD  SAMS  VS  CAS  ESCORTS 


R01»I . 

XATT*TNP(S.K) 

XOPP*TNP(3.L)  

IF (XATT  .EQ.  0.)  GO  TO  310 
— -IFUFSAM  .EO.  0.)  GO  TO  250 

XNENG=AMIN1  UATT.XFSAM) 

RO*XNENG/XATT-  - — 

00  225  1*1 . IHl 1 

___XNPS*XNP ( 5 . I . K ) 


01290 
01300 
01310 
01320 
01330 
01340 
0 1 350 
01360 
01370 
01360 
01390 
01400 
01410 
0-1420 
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01470 
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01640 
01650 
01660 
01670 
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01700 
01710 
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01860 
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FIGURE  B-l  (cont'd) 


XN*RO»XNPS«Pk8E7  5 1 1 »K) 
XNP(5.I»KJ*XnPS-XN 
XATT«XATT-XN 
CONTINUE  

CAS  ESCORTS  VS  80 

IFUATT  .LE.  0.)  GO  TO  310 
IFUOPP  .EO.  0.)  GO  TO  310 
XNENG=AMlNl  UATTU0PP1 

rouneng/xopp 

ROA*RO/XATT 
R01«l.-RO 
00  300  I • I » IhI 1 
00  300  J-1*IHI2 

XNPSH*XNP(5»I»Ki  

XNPSRsXNP (3* J«L) 

XN*XNPS8«XNPSR*R0A 

XNP(S. I.Kl*XNPSB-PKESaO(J«I *KI*XN 

XNP(3.J*L)*XNPSR-PKB0£S(I*JtL)*XN 

CONTINUE 

00  350.J»1»IHI2 - — - 

REMP (J»L)*YNP(3»J»LI *ROl 
_ CONTINUE * 

J FORWARD  SAMS  VS  CAS  _ — - - 

_XATT»XOPP«ROI - 

XCPP*TNP ( 1 »K) 

~ROl«l.  • 

IF ( XOPP  .EQ.  0.)  GO  TO  410 
IFUFSAM  .EQ.  O.J  GO  TO  370 
XNENG=AMINI UOPPiXFSAM) 

ROUNENG/XOPP  

00  360  I*1«IHI1 
XNPS»XNP(1.I.K) 

XN»HO*XNPS*PKBAFS ( I tKI 

XNP(1»I.K)»XNPS-*N 

YNP(1*I»K)»XNPU»I»K) 

XOPP ■ XOPP” XN 
CONTINUE 


80  NOT  ENGAGEO  VS  CAS 


— -370- 


400 
— C 
C 


IF ( XOPP  .LE.  0.)  GO  TO  410 

IFUATT  .EQ.  0.)  GO  TO  410  . . 

XNENG*AM1N1 UATTtXOPP) 

RO-XNENG/XOPP  - ~'~ 

ROA»RO/XATT 

ROl»l.-RO  - - - - 

DO  400  I«ItlHll 

00  400  J»1»IHI2 — 

XNPS*XNP ( 1 » I »K ) 

XN*REMP< J»L)*XNPS*ROA 

XNPI3*  J»LI*XMP13*J»U-PK00II  »JtL)«XN 

XNP  l 1 * I »X) »XNPS”PK8A  < J» I »K) *XN  

CONTINUE 

ACCUMULATE  CAS  ORONANCE  DELIVERED  BY  CAS  NOT  ENGAGEO 


01680 
01890 
01900 
01V10 
01920 
01930 
01940 
0 1960 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02060 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
021S0 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
02240 
022S0 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02360 
02360 
02370 
Q23B0 
02390 
02400 
02410 
02420 
02430 
02440 
02460 
02460 
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FIGURE  B-l  (cont’d) 


00  420  I-l.lHll 

XNPC»YNP(1.1.K1*R01 
CAS0(K1«CAS0(K)  •XNPCCASFU.Kl 
TF1RE(L1*TFIRE(L1-XNPC«DFPREU(I.K1 

CONTINUE 

FORWARD  SAMS  VS  ABA  ESCORTS 
ROW. 

XATT*TNP(6.K>  

X0PP«TNP(4.L1 

IF (XATT  .EQ.  0.)  60  TO  540 
IF (XFSAM  .EQ.  0.1  GO  TO  470 
XNENG*AMIN1 (XATT.XFSAM1 
RO«XNF.NG/XATT 

00  460  W.lHll  — 

XNPS*XNP(6.I.K> 

XN*R0*XNPS*PKAEFS(I.K1 - 

XNPI6.I.K)*XNPS-XN 

XATT«XATT-XN 

CONTINUE 

REAR  SAMS  VS  ABA  ESCORTS 

JF  (XATT  ".LE."  0.1  GO  TO  540 

IF (XRSAH  .EQ.  0.)  GO  TO  490  

XNENG*AMIN1 (XATT .XRSAM1 

_ RO*XNENG/XATT  

DO  400  1*1 . IhI 1 

XNPS'XNP (6 1 I »K ) 

XN*RO*XNPS*PKAERS ( I »KI 

XNP(6.I.K)*XnPS-XN 

XATT*XATT-XN 

CONTINUE 

ABA.  ESCORTS  . .VS— ABO 

IF (XATT  .LE.  0.1. GO  . TO  540 
IF (XOPP  .EQ.  0.1  GO  TO  510 
XNENG=AMIN1 (XATT.XOPP1 
RO*XNENG/XOPP 

RQA*RQ/XATT 

ROW.-RO 

_ 00  500  1*1 . IhI 1 

DO  500  J=l.lHl2 

XNPSB*XNP(6*l.Kl 

XNPSR=XNP(4.J.L1 

— XN*XNPSB*XNPSR*ROA  

XNN«PKESAD(J.I.K1*XN 

XNP ( 6 • I . K 1 * XNPSB-XNN 
xatt*xatt-xnn 

XNP (4. J .L I .XNPSR-PKAOES { I • J »L 1 *XN 
CONTINUE 


FORWARD  SAMS  VS  RETURNING  ABA  ESCORTS 


IF (XATT  .LE.  0.1  GO  TO  540 
-IF (XFSAM  .EO.-O.l  GO  TO  540 


02470 
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02490 
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FIGURE  B-l  (cont'd) 


55  0 
C - 
C 

-C 


XNENG*AMIN1 (XATT.XFSAM) 
RO«XNENG/XATT 
00  520  1*1 « I Hi  I 
XNPS*XNP  < 6 * I • K > 

XNP<6,I.K)*XnPS-XNPS*R0*PKAEFS<I.K> 

CONTINUE 
00  550  J*1.IhI2 
REMP<J.U*YNP<4.  J.L»*R0I 
CONTINUE 


FORWARD  SAMS  VS  ABA 


XATT*X0PP*R01 

X0PP“TNP(2.K) 

ROl* 1 • 

IFTX0PP  .EQ.  0.)  GO  TO  660 
IFTXFSAM  .EO.  0.)  GO  TO  570 
- XN£NG*AMINI(XOPP»  XFSAM) 
RO*XNENG/X0PP 

.00  560  1*1 • iHll  

XNPS*XNP < 2. 1 «K) 
_XN*RO*XNPS*PKAAFS< I »K> 

XNP  (2.1 »K) *XnPS-XN 

. YNP (2. 1 *K)  *XNP <2* I »K) 

XOPP-XOPP-XN 
-CONTINUE  - - — - 


REAR  SAMS  VS  ABA 


-IF  < XOPP  .LE.  0.)  GO  TO  660. 
IF (XRSAM  .EQ.  0.)  GO  TO  590 
XNENG*AM INI ( XOPP « XRSAM)  _ - 
RO*XNENG/XOPP 

DO  580  1*1. IHll  

XNPS*XNP(2.I.K1 
XN*RO*XNPS*P*AARS ( I *K) 
XNP(2«1.K)*XnPS-XN 
YNP (2. I . K) *XNP  <2. I »K) 
XOPP*XOPP-XN 

CONTINUE  - - - 


ABO  NOT  ENGAGED  VS  ABA 


IF ( XOPP  .LE.  O.l-GO  TO  660 
IF (XATT  .EQ.  0.>  GO  TO  610 
XNENGsAMINl (XATT.XOPP) 

R0*ANENG/X0PP 

ROA*RO/XATT  

R01*l.-R0 

00  600  I * I » I H 1 1 - — 

00  600  J*I.IHI2 

XNPS*XNP(2.I.K) 

XN*REMP ( J.U  *XNPS««OA 

XNN*PKAA(J.1,K)«XN 

XNP(2.1.K)=XNPS-XNN 

XNP (6, J.L) *XnP (6. J.L) “PKAO (I.J.L)*XN 
XOPP* XOPP “XNN 

CONTINUE  — • — ■ 
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FIGURE  B-l  (cont'd) 


FORWARD  SAMS  VS  RETURNING  ABA 


— -650 
700 

— C 

c 


I F ( XOPP  .LE.  0.)  GO  TO  640 
IF ( XFSAM  .LE.  0.)  GO  TO  640 
XNENG=AMIN1 (XOPP»XFSAM) 
RO*XN£NG/XOPP 
DO  620  1“ 1 t iHl 1 
XNPS=XNP(2«I.K) 

XNP  (2«  I |K ) rXNPS-XNPS*RO«PKAAF  S (I tK) 
CONTINUE 

DO  650  1*1 t IHI 1 - 

REMPI  I«K>«YNP<2* IiK)*R01 

CONTINUE  1 

CONTINUE 


COMPUTE  AIRCRAFT  ON  GROUND  KILLED  BY  ABA  NOT  ENGAGED 


DO  BOO  K*1 »2 

L«3-K  ..  — 

IMI1=*NTYPE(K) 

_IHI2*NTYPE(L) - 

ATTK»0. 

-TARG*0. — 

SUMS=0 • 

_ SUMN  = 0 : 

DO  715  JM.1HI2 

_ IUP«NMISS(JiL»  — 

CNP( JfL)*0. 

- CNPV(J)*0.  • 

DO  710  M*1 • luP 

IM*1MISS(M.J.L)  • 

CP*XNP(IMiJ»Ll /XSORT (Mi JiL) 
_CNP(JfL)-CNP(J»L)*CP 

CNP V ( J) *CNPV ( J) *CP*ABAF (M. J«L) 

CONTINUE  

TARG*TARG*CNPV( J) 

. CONTINUE. 

IF ( TARG  .EQ.  0.)  GO  TO  800 

NTARG*TARG  — — 

TARGS^AMINOINSHL <L) .NTARG) 

TARGN*NTARG-TARGS  

RS*TARGS/TARG 

_ RNM.-RS  .... 

DO  720  l*l*lHll 
CP*REMP(I«K)  

attk»attk*cp 

SUM S* SUMS ♦CP#RS*PKSM ( I »L ) 
SUMN*SUMN*CP*RN«PKNS ( I < L > 

CONTINUE 

IFIATTK  .EQ.  0.)  GO  TO  800 
_ TSNK*0. 

IF ( TARGS  .ED.  0.)  GO  TO  730 
tsnk*targs«exp<-sums/targs> 
TNNK*0. 

IF (TARGN  .EQ.  0.1  GO  TO  740 

TNNK«=TARGN«EXP(-SUMN/TARGN> 

FR*=1.-USNMTNNK)/TARG 

DO  750  J«=1»IHI2 

CNP ( J«L ) *CNP  ( J«L) “CNPV I J) *FH 

CONTINUE 
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FIGURE  B-l  (cont'd) 


650 
— -900 
C 

-c — 

c 


CONTINUE 

00  BOS  K*l*2 

TCASO  (K) *TCAsO(K) ♦CASOIK) 

CONTINUE 

BTFP*AMAXI (0, *TF IRE ( I > ) 

rtfp«amaxko.*tfire(2)  ) 

T0TFP(1)“T0TFP(1)  ♦BTFP*CASO  ( I ) 

T0TFP(2)=T0TFP(2) *RTFP*CASO (2) 

IF (FEBA ( 1*1)  ,E0.  -I. I 60  TO  900 
FRAT 10*100* 

IFIRTFP  .EG.  0.)  GO  TO  810 
FRATIO*BTFP/RTFP 

- IF (FRAT10  .GT.  100.)  FRATIO*IOO. 

GO  TO  BIS 

IF (bTFP  .EO.  0.)  FRATIO*! .0  - 

DO  820  1*2*28 

.-IF  (FRATIO  .LE.  FEBA(l.I))  GO  TO  830  

CONTINUE 

XMOVE*FEBA (2 , I-T)T7fRATIO^FEBA (1.1-1))*  (FEBA(2* I ) -FEBA (2. 1-1 ) > / 

1 (FEBA(1*  I)-FtBAU*I-l) ) — --  - 

TMOVE*TMOVE*XMOVE 

CONTINUE  

ASSIGN  OBJECTIVE  FUNCTION  VALUES  

DO  920  K*I*2  - - 

OBJEC(K*I)=TCASO(K) 

0BJEC(K«2)*T0TFP(K) >—  - 

CONTINUE 

OBJEC  ( 1 *3)  *ThOVE/2« - 

OBJEC (2*3) =-OBJEC (1*3) 

— RETURN  

END 
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SUBROUTINE  BETAS 

C 

c /BETAS/  COMPUTES  THE  WEIGHTS  USED  FOR  LINEAR  INTERPOLATION 

C BETWEEN  GRIO  POINTS  IN  THE  STATE  SPACt. 

COMMON  /INPUT/  IM1SS (8*4 * 2) * 1GR ID ( 1 1 *4 • 2) *LASTP tNALOC <8 *4) « 

1NFRAC (4*2) *NSHL (2) *NST  AGE  *NOAPST  *CASF (4*2) *IPR1NT (8) * 

1 ITITLE (6) • V ALU <4* 2) *PKBD (4*4*2) tPKBDES (4 »4* 2) *XGR ID ( I 1 *4*2) • 

• IPKAD (4*4*2) *PKA0ES (4*4*2) *PKBA(4*4*2)*PKAA(4.4*2)* 

IPKESBO (4 *4 *2 ) *PKESAD(4«4*2) *PKSH(4*2) *PKNS(4*2) *RE IN (4*2  * 100 ) * 

IWGHT (100*2) • XSORT (8*4,2)«ND1V(2) *OWGHT (5) *NRSAM(2) *NFSAM(2) * 

1PKRS (4  * 2) *PKFS<4*2) «ABAF (8.4*2) *DIVFP(2) *PKBAFS (4 . 2) * 

1PKAAF  S ( 4 • 2) tpKAARS (4*2) *PKAEFS(4*2) *PKAERS(4*2) *PKBEFS(4*2) • 

1P*FAFS<4.2) .PKRAFS (4,2) ,PKRARS(4*2) *DFPR£0<4*2) *FEWAi2*2B)  * 

1RE1NF  (4*2*100)  ‘ - - 

COMMON  /WORKN/  NTYPE (2) *NMISS(4*2) *NMISST(2) *NGRID<4*2) , 

1 1BLURO (2) *NSTRAT (4*2) *NFULST (2) *NST  AT *N1NGAM* 1MPNT (32*2) • 

IITPNT(32*2) * IDEM (8) *NSTRTC(2) * IRA ( 100) « JR A (100) *LUnI*LUN0* 
—INWORK.  NSTAT2.1SINT  (500.2)  *U1  NT  (100*2).  INPNT  (32*2) 


00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00260 

00260 

00270 

00280 

00290 


B-15 


PAB-249 

FIGURE  B-l  (cont'd) 


100 

150 


175 


190 

-200 


900 

910 


COMMON  /WORK!./  LOCST (50 0 * 2) .LOCHG.LOCEG *KOCBG .KOCEG *LOC8VR* 

1LOC8V9,LOCEVR.LOCEV8,LOCBPR,LOCBP8,LOCEPR*LOCEP8* 

lK0CaVB*K0CCVH*K0C9VR*K0CEVR  * JOCBVB * JOCE V8 * JOCBVR * JOCE VR* 

I IOCBVB, IOCEVH* IOCHVK. IOCEVR 
COMMON  /BPARm/  CNP(8) * I B * IR * XNP (9 , 4 * 2 ) ,0BJEC(2*5) 

COMMON  /INTERP/  BET A (2*8) « IBET A <2  * B ) *NDEX ( 8) * I HI ( B ) 
DIMENSION  YGRID (11*8) 

EQUIVALENCE  (XGHID.YGRID)  - --  — --  

00  200  K=  1 *8 

DO  100  M = 2 « 1 1 

IF(CNP(K)-YGRID(M,K) ) 150*150*100 

CONTINUE 

M*1 1 

N*M-I 

IBET  A < I « K 1 *N-I 
IB£TA(2*K)*M-1 
DIF*YGRID(M*K) -YGRID (N,K) 

IF (DIF  ,EQ.  0.)  GO  TO  175 

BETA ( I *K) * ( YGRID (M*K) -CNP (K)  I /DIF 

GO  TO  190  - - — - - - — 

BETA ( 1 *K) *1 • 

— IBETA (2*K) *0 - - - - - - - - 

BETA(2*K)*1.-BETA(I*K) 

CONTINUE  ' 

IF ( IPRINT (B)  *EQ.  0)  RETURN 

WRITE  (LUNO«900I-  IBETA  

FORMAT (/*BH  IBETAS**2(BI5/8X) ) 

- WRITE (LUNO *910)  BETA 
FORMAT (7H  BET AS*. 2 (BF5.2/7K)  ) 

— RETURN  

END 


C 

C 


SUBROUTINE  ERR(K) — - r - 

/ERR/  IS  CALLED  TO  PRINT  A DIAGNOSTIC  OR  ERROR  MESSAGE. 


COMMON  /INPUT/  IMISS <8 « A *2 J * IGR I D 1 1 1 * A * 2) *LASTP * NALOC (8*4) * 
1NFRAC (4*2) *NSHL(2>  *NSTAGE*NUAPST*CASF (4  *2) * I PR I NT (8) * 

1 1 TITLE (6) *VALU(4*2) *PKBD<4*4*2) .PKBDES (4*4*2) * XGRID ( 1 1 *4* 2) * 
1PKAD( 4*4*2)  .PKADES (4*4 .2) *PKBA (4*4*2) *PKAA (4*4*2) * 

1PKESBD(4*4*2) *PKESAD(4*4»2) ,PKSH(4*2)*PKN5(4,2),K£IN(4*2,I00)* 

1WGHT (100.2) .XSORT (8*4*2) *NOIV(2) .OWGHT (5) *NRSAM(2) *NFSAM(2) * 
-1PKRS (4*2) *PKFS(4.2) . ABAF (B*4.2).DIVFP(2) .PK8AFS (4*2) I* 

1 PKAAF S ( 4 * 2 ) .PKAARS  (4*2)  *PKAEFS(4*2)  *PK AERS  (4* 2 ) *PK9fc.FS  (4*2)  « 
1PKFAFS  (4*2)  *PKRAFS  (4*2)  *PKRAR$(4*2>  *D'FPREU  (4,2)  *f  EBA  (2.28)  * 

IRE  INF (4*2*100) 

COMMON  /WORKN/  NTYPE (2) »NMISS (4 *2) .NHISST (2) *NGRID (4,2) , 

I IBLURD(2) *NSTRAT (4,2) *NFULST (2) *NST  AT.NINGAM * IMPNT (32*2) * 

1 ITPNT (32*2) , IDEM (8) ,NSTRTC(2) * IRA (100) , JRA( 100) ,LUNI*LUN0* 
1N80RK,NSTAT2, ISINT (500.2) ,IDINT (I  00*2) , INPNT (32*2) 

COMMON  /WORKL/  LOCST (500 *2) .LOCBG .LOCEG * KOCBG.KOCEG.LOCBVR * 

1LOCBVB,LOCEVH*LOCEVB.LOCBPR.LOCBPB»LOCEPR*LOCEP8. 
1K0CBVB*K0CEVB*KQCBVR*K0CEVR* JOCBVB* JOCEVB* JOCBVR* JOCEVR* 

1 IOCBVB, I0CEVB.I0C8VR* IOCEVR 

COMMON  ../ERROR/.  JERR  ----- 


V 
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FIGURE  B-l  (cont'd) 


DIMENSION  IMESSG <6. 30) .IERRDR13) * IETYPE (30> 
0ATAUMESSG*180Uh  )) 

DATA! IERROR=10H*«*INFO*«#.10H***ERROR»» ♦ 10H»«* ABORT ** > 


DAT  A ( IMESSG ( 1 

DATA  < IMESSG! 1 

DATAUMESSGd 

DATA! IMESSG (1 

OAT  A < IMESSG! I 

DAT  A ( IMESSG ( 1 

DATAUMESSGU 

DATA( IMESSG (5 

DATAUMESSGd 

DATAUMESSGd 

DATAUMESSGd 

DATA ( 1MESSG15 

DATAUMESSGd 

DATAUMESSGd 

OATA< IMESSG d 

DATAUMESSGd 

OAT  A ( IMESSG  <5 

DATAUMESSGd 

0ATA(IMESSG(5 

DATAUMESSGd 
-DATAUMESSGd 
DATAUMESSGd 
DAT  A ( IMESSGI5 
■ DATAUMESSGd 

DATA(IMESSG<S 

DATAUMESSGd 

OAT  A < IMESSG (S 

DATAUMESSGd 
— —OATAUMESSGIS 
DATAUMESSGd 

-DATAUMESSGd 

OATAUMESSGIS 

OAT  A I IMESSG 1 1 

OAT  A I IMESSG 1 1 

OATAUMESSGIS 

DATAUMESSGd 
OATAUMESSGIS 


1) «31HRUN  ABORTED  DUE  TD  FAIAL  ERRORS) 

2 )  *23H0ATA  CARD  KEY  NOT  RECOGNIZED) 

3J-45HT0D  MANY  PURE  STRATEGIES  TD  BE  STORED  IN  CORE) 
4 ) *4 1 HTOO  MANY  STATES  TO  STORE  VALUES  AND  PLAYS) 
5I«43HN0T  ENOUGH  COMMON  AREA  TD  STORE  GAME  MATRIX) 

6) “44HBUFFER  OUT  ERROR  TO  TAPE1  IN  SUBROUTINE  INIT) 

7 )  »A0HUSER  REQUESTED  only  a DATA  CHECK  AND  TIM) 

7) * 10HE  ESTIMATE) 

8>«40HSUM  OF  SPECIFIED  ALLOCATIONS  EXCEEDS  1.0) 

9)  *32HSMALLEST  GRID  LEVEL  MUST  BE  ZERO) 

10) =40HBUFFER  IN  ERROR  FROM  TAPE I IN  SUBROUTINE) 
10>=6H  GAMES) 

1 1 )  =4lH8UFFER 

12)  *41HBUFFER 

13)  =4lHBUFFER 
1 A) =40H8UFFER 

14) ®7H  TRIALS) 

15)  *40HBUFFER  IN  ERROR  FROM  TAPE8  IN  SUBROUTINE) 

15)  «7H  TRIALSL 

16)  *33HRUN  CARD  MUST  PRECEDt 

17) *38HTRIAL  CARD  IGNORED  — 

18 )  =aohtr i al  Card  ignored  — 

18)  C7HQUESTED) 

19)  -AOHTRIAL  CARD  IGNORED  — TDD  MANY  PLANES  OF) 

19)  = 19H  ONE  TYPE  SPECIFIED)  — 

20) *40HDISK  I/O  ERROR  ON  TAPE9  IN  SUBROUTINE  T»> 

20 )  *4HI ALS) 

21 )  *A0HEUFFER  OUT  ERROR  ON  TAPE9  IN  SUBROUTINE  ) 

21 )  «6HREA0IN) 

22)  =42HBUFFER  IN  ERROR  FROM  TAPE4  IN  MAIN  PROGRAM) 

23)  »40H1F  ALL  ALLOCATIONS  ARE  SPECIFIED  THEY  MU) 

23) * 13HST  SUM  TO  1.0) 

2 A ) * 38H I/O  ERROR  ON  TAPE10  IN  SUBROUTINE  INIT) 
25)=A0MSTRATEGIES  NOT  SPECIFIED  THRU 'THE  LAST  S) 

25) *16HTAGE  OF  CAMPAIGN) 

26)  xAOHBUFFER  IN  ERROR  ON  TAPE9  IN  SUBROUTINE  1) 

26) =3HN1T)  — - — 

2.6<3>.2.7(3).3(l>.4(3>.7(3)> 


OUT  ERROR  TO  TAPE4  IN  MAIN  PROGRAM) 
OUT  ERROR  TO  f APE 7 IN  MAIN  PROGRAM) 
OUT  ERROR  TO  I APES  IN  MAIN  PROGRAM) 
IN  ERROR  FROM  TAPE7  IN  SUBROUTINE) 


TRIAL  CARDS) 
INCDRRECT  FDRMAT) 
TOO  MANYSTAGES  RE) 


DAT  A 1 IET YPE*3 

IDERR=IETYPE1K)  

WRITE (LUNO. 100)  1ERRDR 1 IOERR) » ( IMESSG! I *K) »I 
-FDRMAT (/. IX. AlO. IX .6A10./)  - 

IF ( IOERR  .EQ.  3)  STOP 

IF < IOERR  .EQr-1) -RETURN  

IERR* 1 

RETURN  “ 

END 


■1.6) 


003A0 

00JS0 

00360 

00370 

003B0 

00390 

OOAOO 

ooaio 

00A20 
OOA30 
OOAAO 
00A50 
OOA6U 
OOA/O 
0DA80 
00A90 
OObOO 
00S10 
00S20 
00530 
005AO 
^00550 
00S60 
00S70 
00S80 
00S90 
00600 
-00610 
00620 
00630 
006A0 
006S0 
00660 
0 )670 
00680 
00690 
00700 
00710 
00720 
00730 
007A0 
00  750 
00760 
00770 
00780 
00  ?90 
OOBOO 
00810 
00820 


SUBROUTINE  GAMES  - — -----  - 00110 

00120 

/GAMES/  PERFORMS  A OYNAMIC  PROGRAMMING  BACKWARD  PASS  00130 

COMPUTING  FOR  EACH  STAGE  AND  STATE  THE  MAXMIN  AND  MIi.MAl  00140 

STRATEGIES  AND  ASSOCIATED  OBJECTIVE  FUNCTION  VALUES  F0»  00150 

BOTH  BLUE  AND  RED,  ' ' 00160 
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riGURE  B-l  (cont'd) 


COMMON  /INPUT/  I MISS ( 8 *4 *2) * IGR I D < 1 1 *4 *2 > * L ASTP* NALOC ( 8*4 ) , 
1NFRAC (4*2) *NShL (2)  *NSTAG£*NUAPST *CASF (4 * 2 > * IPR1N1  (8) * 

1ITITLE (6) • VALU (4*2) *PKPD(4*4*2> *PK8DES ( 4 *4  * 2) * XGR ID ( 1 1 *4 *2) • 
1PKAU (4*4.2) *PK AGES (4*4,2) ,PKBA<4,4.2) , PK AA ( 4 ,4 , 2) * 

1PKESBD (4*4*2) *PKES AD < 4,4 *2) *PKSH(4*2) * PKN5 (4  * 2 ) *HE IN ( 4 *2* 1 00) * 

1 WGH T (100*2) ,XSORT( 8*4.2) ,NDIV<2>  , OUGHT (5) *NKSAM<2> *NFSAM(2) * 
1PKRS (4*2) *PKF  S (4*2) * A8 AF  < 8 *4 * 2) *0 1 VFP ( 2 > *PKBAFS (4*2) * 

IPkAAF S ( 4 * 2 ) *PKA AKS  (4*2) »PKAtFS(4*2) ,PK AER5 (4  * 2 ) *PKBEf S ( 4 ,2) « 
1PKFAFS (4*2) «PKRAFS  (4*2) *PKRAHS<4,2) .DFPRED (4 , 2 ) *F EBA <2 *28 ) * 

1REINF(4. 2*10.3)  

COMMON  /WOKKN/  NT YPE ( 2) *NMI SS  (4 • 2 ) * NM I SST ( 2 ) *NGR 10 (4 * 2) * 

_ 118LUR0(2) *NSTRAT(4.2)*NFULST<2) *NSTAT tNINGAM, 1MPNT (32,2) * 

I ITPNT (32,2) * IDEM (8) *NSTRTC<2) *IRA(  100) « JR A (100) *LUNI*LUNO* 

1NWOKK.NST AT2.  I SINT  (500.2) *1D1NT( 100*2) * I NPNT (32*2) 

COMMON  /WORKL/  LOCST  ( 500*2)  *LOCBG*LOCF.G  * KOCBG* KOCEG*LOCIVR* 

_ ilocbvb.uocevr.locevb.locbpr.eocbpb.locepk.locepb. 

1KOCB  VB  * KOCEVB  *KOCHVR»KOCEVR»  JOCBVB*  JOCEVB*  JOCBVR*  JOCEVR, 

~ llOCBVa.IOCEVB.  IOCBVH.IOCEVR  ---• 

COMMON  /1NTERP/  BET A ( 2 ,8) * 18ET A ( 2 * 8 ) • J1 * J2 * J3* J4 * J5* J6i  J7 * J8 * 

1JH1I  , JHI2.JH13* JHI4,JHI5*JHI6,JHI7*JH1B 

COMMON  /IPARm/  0ELTA(8) * JBETA(2* 8* 128) ,XBETA (2*8* 128) * HIT (8) 

COMMON  /ROUND/  J0EX(4.2*2) 

DIMENSION  MVf.C  (8)  *NVEC  (8) 

EQUIVALENCE (MVEC*JDEX(1*1,1)  >•  (NVEC* JDEX ( 1 , 1*2) ) 

'COMMON  /WORK/  XARRAY (25000) 

DIMENSION  JHI (8) » JVECI8) ,NDEX(8)  ,BMIN (500) *RMAX (500) ,1 ARRAY (1) 

DIMENSION  1 VERT (8*256) ,IBSI  NT  (500)  , I RSI  NT (500) 

EQUIVALENCE  (IS1NT(I.1)*IBS1NT),<IS1NT(1.2),IRS1NT) 

EQUIVALENCE ( XARRAY . 1 ARRAY )* (NDEX.Jl)  , (JH1.JH11) 

DIMENSION  SEIN<8, 100)  .SEINF  (8*100)  -- 

EQUIVALENCE  (REIN.SEIN), (RE  INF ,SE1NF ) 

COMMON  /TEMP/  IPPNT  (8) «TEIN(B) *TEINF (8) »NPTT  

DATA (JDEX«I 6(0) ) , < JVEC=8(0) » * (JH1»8 (1) ) , ( 1VERT»2048 ( 1) ) 
NPTT=NTYPE(1)*NTYPE<2) 

MPTT-NPTT 
M*4”NT YPE ( 1 ) 

00  25  NN*1.NPTT 

(HI  ( NN) *2 

N-NN 

IF (N  *GT.  NTYPE(l))  N*N*M 

IPPNT (NN) *N 

- CONTINUE  - - - — 


IF ( IPPNT (NPTT ) *EO.  8) 
ICNT=0 

00  50  J8=1,JH18 
DO  50  J7*l * Jh17 
DO  50  J6* I » JH 1 6 

- 00  50  J5* l » JH15 

00  50  J4*l » JH14 

— 00  50  J3-1.JH13 

00  50  J2e1 » JHI2 

— DO  50  Jl* 1 * JH 1 1 — 

lCNT’ICNT ♦ 1 

00  50  NN*1 *NPTT 

1VERT (NN* 1CNT ) »NDEX (NN) 

CONTINUE  

LPTT»ICNT 

IHI1*NFULST (2)  


EQ.  8)  MPTT=MPTT-1 
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FIGURE  B-l  (corn'd) 


IHI2=IHI1-1 

ih!3=nfulst(ii 

LVB*L0C8VB-1 

lvr*locbvr-i  - — 

LPB*L0CBPB-1 

LPR*L0CBPR-1 — 

KVB*K0C8VB-1 

KVR«KOCBVR-I  — 

JVfl* JOCBVB-1 

JVR*J0CBVR-1  

1VH*I0CBVB-1 

IVR*IOCBVR-l  - - 

DO  ¥00  1*1 .NSTAGE 

MSLOC*NSTAGE-I*l  - 

NSLOC=MSLOC* 1 

IOINTB*IDINT(HSL0C.l)  - - 

IOINTR*IOINT(HSLOC.2) 

. WGHTB=WGHT(MSL0C.1) 

WGHTR*WGHT (MSLOC.2) 

i)0  75  NN*1  *NPTT 

N*IPPNT(NN) 

__TEINF  (N)  *SEINF  (N.NSLQC)  _ - 

TEIN (N)  *5EIN (N.NSLOC)  /DELTA (N)  *1.5 

..CONTINUE 1 

REWIND  1 

. . DO  BOO  _J*1*NSTAT - .• 

IF ( IPRINT  (7)  .NE.  01  WRITE (LUNO.80 1 MSLOC.J 

FORMAT  (/~t.7.H  STAGE*.  I3.3X.6HSTATE*.  13)  

BUFFER  IN  (1.1)  ( I ARRAY (L0C8G) . IARRAY (KOCtG) ) 

_IF  (UNIT  (1 ) ) 200.100*100 — 

CALL  ERR (10) 

COMPUTE  INTERPOLATED  VALUES  AND  PLAYS  FOR  EACH  STATE 
~~DO  210  K*1 . IHI3 

BM1N  (K)  *1 .ElO  — - 

CONTINUE 

_ 00.220  K*  1 . IHI 1 - - 

RMAX(K)*-1.E10 

. _ CONT INUE 

ICNT  *0 

DO  A00  K*L0CHG.L0CEG*IHI1 

ICNT*ICNT ♦ 1 „ , 

IF  ( IBSINt  ( ICNT)  *EQ.  10INTB)  GO  TO  300 
BMIN ( ICNT ) *-l .E10 

GO  TO  400 : : 

IHI*K*IHI2 

— JCNT*0 - • 

DO  390  L*K*lHl 

)CNT*JCNT*1  - ' 

IF  ( IRSINT ( JCNT ) .EQ.  IDINTR)  GO  TO  305 

— RMAX(JCNT)*1.E10  

GO  TO  390 

IWORD*IARRAY  (L)  - ' ; 

JWORD=I ARRAY <L*NINGAM) 

DO  310  NN*1.NPTT  - - - - 

N*IPPNT(NN) 

LEVEL *L8YT  ( IBIT  (N)  .7.JWORD)  — ~ — 
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FIGURE  B-l  (cont'd) 


LEVEL*TEINF (N> •LEVEL»TEIN(N) 

IFJLEVEL  .LT.  1)  LEVEL=1 
IF1LEVEL  .GT.  128)  LEVEL*12B 
DO  310  M=l*2 

18ET A (M*N) *JBE  TA (M.N.LEVEL) 
BETA(M.N)=XBt.TA  (M.NtLEVEL) 

CONTINUE 

I0BJ»L8YT<31.29.IW0RD> 

J0BJ*L8YT ( l .29* IWORD) 

IF  (LBYT  (60.1.IWORD)  .EO.  I)  IOBJ*-IOBJ 
1F>L8YT (30* 1 • IWORD)  .EO.  1)  J08J*“J0BJ 

CHECKS2 10BJ*WGHTB“ JOB J*WGHTH 

CHECKR-CHECK8 
00  3A0  LL»1»LPTT 
ALPHA*!. 

DO  320  NN*1  *NPTT — 

N-1PPNT1NN) 

M*IVERT(NN.LL> 

JVEC(N)«IBETA(M.N) 

ALPHA=ALPHA«BETA(M,N) 

CONTINUE 

-IF (ALPHA  .EQ.  0.1  60  TO  3A0 
1ST  AT  *JVEC  ( 81  ♦ I 

DO  330  NN*1.MPTT  - 

NMPPNT(NN) 

ISTAT=1STAT*JVEC(N)*IDEM(N) 
CHECK8*CHECKB* ALPHA*XARRAY  (LV8*1STAT) 

CHECKR*CHECKR*ALPHA*XARRAY(LVR*ISTAT> 

CONTINUE  „ __  cn 

IF (CHECKS  .GE.  BMIN(ICNT))  GO  TO  350 
BHIN ( ICNT ) =CHECKB 

IF (CHECKR  .LE.  RMAXUCNT))  GO  TO  390 
,_RMAX(JCNT)=CHECKR  — --  — - 

CONTINUE 

-CONTINUE  

STORE  BLUES  MAXM1N  PLAY 

_ XMAX*-1.E10  

DO  A10  N*1 • 1hI3 

._-IF (XMAX  .GE.  8M1N (N) ) GO  TO  A10 
XMAX*BM1NIN) 

1BPLAY*N 

CONTINUE 

XARRAY(KVB*J)=XMAX  — - 

1ARRAY(LPB*J)*18PLAY 

STORE  REDS  MINMAX  PLAY 

XHIN*I.E10 
00  A20  N«l»IHll 

IF (XM1N  .LE.  RMAX(N))  GO  TO  A20 

XMIN*RMAX(N) 

IRPLAY=N 

CONTINUE 

XARRAY(KVR*J)«XMIN 

IARRAY(LPR*J) *IRPLAY 
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01680 
01690 
01700 
01710 
01720 
01730 
0 1 7 AO 
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01660 
01670 
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01890 
01900 
01910 
01920 
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FIGURE  R-l  (cont'd) 


- C COMPUTE  AND  STORE  MAXMIN  FOR  BLUE 

C 

ILO-LOCBG* IHI I- ( IBPLAY-1 ) 

IHI-ILO* IHI 1-1 

JCNT-0 

XMIN-I .ElO 

DO  600  K-ILO* IHI 

JCNT  =»  JCNT  ♦ I 

IF  ( IRS INT ( JCNT ) .NE.  IDINTR)  GO  TO  600 

IWOKO-I ARRAY <K) 

...  JWORQ=I ARRAY (K.NINGAM)  

I0BJ-L8YT(3I,29*IW0R0) 

I0BJ-L8YT ( 1 *29* IWORO) 

IF(LBYT(60*I» IWORO)  .EO.  1)  IOBJ— IOBJ 

IF (LBYT  (30.I.IWORD)  .EG.  II  JOBJ— JOBJ 

DO  510  NN-I.nPTT 

N-IPPNT(NN)  1 _ . . . ..  _ 

M-(N-I  )/<Ml 

LEVLL-LBYT (IfilT (N) .7.JW0R0)  

LEVEL-TEINF (N) *L£VEL*T£IN(N) 

IF  (LEVEL  .LT.-I>  LEVEL-I  

IF (LEVEL  .GT.  I2B)  LEVEL-128 

MVEC(NI=JBETA(M.N. LEVEL)  __  _ ' 

510  CONTINUE 

IS-ISTATE(MVEC) . . 

,CHECK=IOBJ*WGHTB-JOBJ*WGHTR*XARRAY(JVB»IS) 

: IF (CHECK  «GE«  XMlN)  GO  TO  600  . 

XMlN-CHECK 

600  CONTINUE  

XARRAY(IVB*J)"XMIN 

-_IF (IPRINT ( 7)  .NE.  0)  WR ITE (LUNOf 60S)  XMIN* IBPLAY 

605  FORMAT (8H  MAXM IN- ,F 1 0.0 .2X.5HPLAY- , 13) 

C COMPUTE  AND  STORE  M INMAX  FOR  RED 

ILO-LOCBG*IRPLAY-I 

4H1*IL0*(1HI3-1)*IHII 

ICNT-0 

XMAX— 1.E10 

DO  700  K-ILO. IHItIHIl 

ICNT«ICNT*I 

IF ( IBSINT ( ICnT)  .NE.  IOINTB)  GO  TO  700 

IWORO-IARRAY(K)  1 J 

JWORO-IARRAY  <K«NINGAM) 

IOBJ-LBYT (31.29. IWORO)  _ 

JOBJ*LBYT< 1.29. IWORO) 

— IF(LBYT(60.I,IWOHO)  ,.EQ.  1)  IOBJ— IOBJ  __  __ 

IF(LBYT(30.I, IWORO)  .EO,  1)  JOBJ— JOBJ 

00  610  NN-I.NPT.T - ___  _ ' _ 

N-IPPNT (NN) 

J4M-2-  (N-I ) /A  - _ _ 

LEVEL-LBYT< I9IT(N) ,7»JW0R0) 

LEVEL-TEINF (N) *LEVEL*TEIN(N) 

IF (LEVEL  .LT.  I)  LEVEL-1 

IF  (LEVEL  .GT.  128)  LEVEL-128 

NVEC(N)*J8ETA(MM.N.LEVEL) 

_ 610  CONTINUE  __ 

IS-ISTATE (NVECl 

CHECK-IOBJ*WGHTB-JOBJ*WGHTR»XARRAV(JVR*IS) 


01930 
01940 
01950 
01960 
01970 
01960 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02060 
02090 
02100 
02110 
02120 
...02130 
02140 
02150 
02160 
_ 02170 
02160 
02190 
02200 
_ 02210 
02220 
02230 
02240 
02250 
02260 
02270 
02260 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02360 
02390 
02400 
02410 
02420 
02430 
02440 
02450 
02460 
02470 
02469 
02490 
02500 
02510 
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IF (CHECK  .LE.  XMAX)  GO  TO  700 

XMAX=CHECK  

CONTINUE 

XARRAY(IVR*J)»XMAX 

lFdPRINT  (7)  .NE.  0)  WR ITE  (LUN0.705)  XMAX*  IRPLAY 
FORMAT <8H  M INMAX- * F 1 0 .0 *2X * SHPL AY-* 1 3) 

CONTINUE 


705  — 
800 

C 

c 


WRITE  PLAYS  AND  VALUES  ON  RA  MASS  STORAGE 


CALL  WRITMS(3* I ARRAY (LOCBPB) *NSTAT2*MSLOC) 
- CALL  fc'RlTMS(2*IARRAY(IOCBVB)*NSTAT2*MSLOC) 
00  850  J«1«NSTAT2 

IARHAY(LVB*J)«IARRAY(KVB*J) 

IARRAY(JVB*J)«lAKRAY(IVBO> 

>_  CONTINUE 
) CONTINUE 

--  RETURN  — 

END 


-SUBROUTINE  IN  IT 


— / I N I T / ASSIGNS  COUNTERS  AND  POINTERS*  COMPUTES  THE  PURE 

STRATEGIES  ANO  THE  NUMBER  OF  STAtES*  AND  COMPUTES  AND  STORES 
ON  MASS  STORAGE -THE  BATTLE  ASSESSMENTS  FOR  EACH  STATE  AND 
PURE  STRATEGY  COMBINATION. 


COMMON  /INPUT/  IM I SS  (8,*  * 2)  * IGRID  ( 11  * A. 2 ) *l.ASTP  .NALOC  (8 . A > * 

— 1NFRAC(4,2) *NSHL  <2) * NST AGE »NOAPST  *CASF (4*2 )*I PRINT (8) * 

1ITITLE16) * V ALU ( A • 2 ) »PKBO (4,4*2) . PKBDES ( A * 4 *2 ) • XGR I D ( 1 1 * A* 2) * 
_1PKAD(A,A*2) *PKADES <A*A*2) *PKB A ( A * A *2) *PK AA ( A * A *2 > * 

IPKESHD (4  *4*2 ) *PKES AD (4,4*2) *PKSH(A*2>  *PKNS(A*2),KEIN(A*2,I00)« 
4WGHT(100,2) «XSORT (8,4,2) *NDIV(2) *OWGHT (S) *NRSAM (2) *NFSAM(2) * 
1PKRS ( A *2) ,PKFS (A«  2) *ABAF (8*4*2) *DIVFP(2> ,PKBAFS(4,2) « 

..  1PKAAFS (4*2) ,PKAAHS (4,2) ,PKAEFS(4,2*  *PKAER5(4,2) ,PKBEFS (4,2) « 
1PKFAFS (4  *2) *PKRAFS (4*2) *PKRAKS(4*2> *DFPREU(4*2) * FEB A (2 *28) * 
-lREINF (4*2*100) 

COMMON  /WORKN/  NT YPE ( 2 ) *NM I SS (4, 2) .NMISST (2) *NGRID (4, 2 ) * 
1IBLURD(2) tNSTRAT (4*2) *NFULST (2) * NS TAT  .NINGAM, IMPNT (32*2) * 
IITPNT(32*2) * IDEM (8) *NSTRTC(2) « IRA (100) *JRA(I00) *LUNI,LUNO, 
-INWORK* NS TAT 2* IS! NT ( 500 . 2) * IDINT  ( 1 00 *2) , INPNT (32*2) 

COMMON  /WORKL/  LOCST (500 *2) *LOCBG *L0CEG*KUC8G* KOCEG *LOCB VR « 
IL0C8VB  *LOCE VR  »LOCE V8 .LOCBPR  .LOCBPB ,LOCEPR *LOCEPB * 
IK0CBVB*K0CEVB*K0CBVR»K0CEVR*J0CBVB*30CEVB* jocbvr* jocevr* 
1I0CBVB*I0CEV8»10CSVR«I0CEVR  ' — 

COMMON  /WORK/  XAWRAY (25000) 

DIMENSION  I ARRAY ( I ) 

DIMENSION  KEVEL (8) 

— EQUIVALENCE  (XARRAY* IARRAY)  - - 

DIMENSION  STRATS(8, 200*4) * JGRID(11*8) , YGR1DI II *8) 

— EQUIVALENCE-  (XARRAY( 18601) .StRATS) 

EQUIVALENCE  ( IGHID* JGRIO) * ( XGR ID  * YGRID) 

COMMON  /SPARM/  MFRAC.MMlSS* IBR * IT YPE.NSTOK ( 8 ) , IPNT (8) 

COMMON  /BPARM/  CNP ( 4 *2) * I B* IR » XNP (9,4 ,2 ) *OB JEC ( 2 , S) 

— COMMON  /IP ARM/  DEL)  A (4*2)  * J8ET  A (2 * 8*  128)  * XBET  A (2*  8*  128) « IBIT  (8) 
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02S20 


02530 


02S40 


02SS0 


02S60 
02S  70 
02S80 
02S90 
02600 
02bl  0 
02620 
02630 
02640 
026S0 
02660 
02670 
02b80 
02690 
02700 


00110 

00120 

00130 

00140 

00IS0 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

002S0 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

003S0 

00360 

00370 

00360 

00390 

00400 

00410 

00420 

00430 

00440 

00450 


jE5r 
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FIGURE  B-l  (cont'd) 


COMMON  /INTEWP/  BETA(2*8).IBfcTA(2*8)*NDEX<8).lHl(8> 
COMMON  /SINT VL/  IKLOI500) * 1KH1 (500) 

DIMENSION  ISTOR(A) 

DATA (NW0RK*25000) 

DATA ( I8IT*50 1 A3*36«29*  22 *15*8*1) 

DATA (NSTRAT*8(0) ) * (NM1SS*8(0) ) . (XNP*72(0.) ) 


100 


110 
C - 
C 
C 


DO  100  1‘1'NWORK 
1 ARRAY ( 1 ) “0 

CONTINUE  — • - 

DO  110  K*1  *2 
DO  110  J«1*A 

oo  no  i«i.n 

XGRID(1.J*K)=IGR1D( 1 * J*K) 
CONTINUE 


ASSIGN  COUNTERS  ANO  POINTERS 


.EQ.  0)  GO  TO  120 


-115- 

120 


1*5 

130 


135 


1 AO 
C— 
C 


DO  1 AO  K*1 *2 

L*0  - 

DO  135  J*1  * A 

00  115  I*l.a 

IF ( 1MISS ( I * J»K) 

- L*L*1  

1NPNT (L*K) *1 

^4MPNT(L.K)*ImISS(1.J*K) 

ITPNT (L*K)*J 

-CONTINUE — 

NMISS ( J*K) *1-1 

DO  125  1*2* 1 1 

IF ( IGRID ( 1 * J*K)  .EQ.  0)  GO  TO  130 

-CONTINUE  

NGR1D ( J»K ) *1-1 

DELTA(J.K)*XGR1D<I-1*J»K)/127.  - 
CONTINUE 

- NM1SST (K) *L 

CONTINUE 


COMPUTE  INTERPOLATION  PARAMETERS 


150 


155 

C 


DO  160  1*1*128 

-L*l”l  -- 

00  150  K*1 *2 

.DO  150  J*1  * A - 

CNP(J*K)*L»OELTA( J*K) 

CONTINUE 

CALL  BETAS 

DO  160  K=1  *2 - _ 

00  160  J«l«8 

_JBETA(K.J«1)=1BETA(K*J)  — 

XBETA(K.J»I)=BETA(K* J) 

-CONTINUE  *__! 

00  165  K*l«2 

DO  165  J*1  * A _ 

IF  (OELT A ( J*K ) .EO.  0*)  DELT A ( J*K) * 1 • 

CONTINUE  - - 

CALL  OPENMS(2*IHA* 100*0) 

CALL  0PENMSJ3*JRA* 100.0) 


00A60 
00A70 
00A80 
0OA9O 
00500 
00510 
00520 
00530 
005A9 
00550 
00560 
00570 
00580 
00590 
06600 
00610 
00620 
00630 
006A0 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
007 30_ 
007A0 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
008AO 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
009AO 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
010A0 


I 
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FIGURE  B-l  (cont'd) 


._.  C - - GENERATE  PURE  STRATEGIES  FOR  BLUE  ANO  RED 

C 

_ 1lOC*1 

REWIND  9 

00  AOO  K=l»2  

1BR*K 

IUP1=NTYPE<K)  

IUPJ*NSTRTC<K) 

JCNT*0  - 

KA$TP=1 

00  360  11=1.1 UP3.  — - — 

BUFFER  IN  (9,11  <L ASTP . NALOC < 8. A >> 

IF (UNIT (91 ) 175.170.170  .... 

170  CALL  ERR <26 ) 

175.  .DO  100  J=KASTP»LASTP 

IOINT (J*K)=LASTF 

1 BO  CONTINUE  - 

KASTP=LASTP* 1 
00  300  J*l.lUPl 
ITYPE*J 

MMI SS»NH1SS ( J.K) — 

MFRAC»NFRAC< J.K1 

1HI2=MM1SS  — - - - 

ICNT»0 

00  200  I*l*lHl2 — 

1PNT ( 1 ) =0 

. IF  (NAL0C(  I * J)  .£0.— “1 1 GO  TO  190 

MMISS*MMISS-1 

MFRAC»HFRACrNALOC<I.JJ  

IF (MFRAC  .LT.  0)  CALL  ERR<8> 

NSTOR  ( 1 )*NALOC  ( I » J > . - — 

GO  TO  200 

— 490—  1CNT»ICNT*1 

1PNT ( ICNT ) =1 

200 CONTINUE  

IF (MMISS  .EQ.  0 .AND.  MFRAC  .GT.  0)  CALL  ERR<23) 

CALL  STRAT  — 

300  CONTINUE 

IHl 1*NSTRAT  <1*K) 

lH12=NSTRAT (2*K) 

1H13=NSTRAT <3*K) - 


iHl A=NSTRAT  < A 

*K ) 

-IF  ( 1H1 1 

• ED. 

0) 

IHl 1*1- 

1FUH12 

.EQ. 

0) 

1HI2»1 

IF  < 1HI3 

.EQ. 

0) 

I HI  3* 1 

if<ihia 

.EQ. 

0) 

1HIA-1 

00  360  1*1. lull  

DO  360  J*l.lHl2 

DO  360  L*1 » IH 1 3 

DO  360  M*1 . IHl  A 

ICNT  = JCNT*1  - 

LOCSTUCNT.K)*ll.OC 

I SINT ( JCNT  »K) *LASTP—  - 

IST0R<1)=1 

— _ ISTOR  <2)  *J  — - - 

ISTOR  <3) *L 

ISTOR (A) *M 

00  360  I1*1.IUP1 
IOEX  = 15T0R < 1 1 ) 


01050 
01060 
01070 
01000 
01090 
01  UO 

oiiio 
01120 
01130 
0 1 1 AO 
01150 
01160 
01170 
oiieo 
01190 
01200 
01210 
01220 
01230 
012A0 

01250 

01260 
_ 01270 
01200 
_ 01290 
. 01300 

. 01310 
01320 

01330 

013A0 
01350 
01360 
01370 
01300 
01390 
01A00 
01A10 
01A20 
_ 01A30 

01AA0 
01A50 
01A60 
01*70 
01A80 
_ 01A90 
01500 
01510 
01520 
01530 
015A0 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 


I 


■ 

rm 

1 


II 
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1UP2=NM1SS  <11 • K > 

DO  360  N=l  , IIJP2  — " 

XARRAY(1L0C)=STRATS(N.1DEX.11> 

1L0CSIL0C.  1 ■ - - - - - 

CONTINUE 

.NFULST(K)=JCNT  - - - 

IFIJCNT  .OT.  500)  CALL  ERR (3) 

IF(K  .EQ.  I .AND.  ILOC  .GT.  NWORK-6400)  CALL .ERR  13) . 

IFILASTP  .LT,  NSTAGE)  CALL  ERR(25) 

-CONTINUE  

WRITE(LUN0.410) 

FORMAT ( 1HI ) - ••  • , rr  -y  ".V'  

WRI TE (LUNO. 420)  ( IBLURD(K) iNFULST <K) iK»I .2) 

F0RMAT(//1IH  NUMBER  OF.  • A4 . 24H  PURE  STRATEGIES  EQUALS  tl 
IF  C ILOC  .GT.  NWORK)  CALL  ERR  13) 

SET  POINTERS  FOR  EACH  BLUE  STRATEGY  TO  INDICATE  THE  RED 
STRATEGIES  WHICH  CAN  BE  PLAYED  AGAINST  IT...  ■- 


— IHI  1*NFULST  ( 1 ) " 

IHl2aNFULST (2) 

- ILOB*0  “ 

DO  628  1*1. IHI1  ... 

-IF  ( ISINT  (1.1)  .EQ. -IL08) -GO  TO  426  - 

IRL*0 

; IBL«IL0B»1 
IBH*ISINT(I.l) 

—DO  424  K*IBL»  IUH  • — 

DO  422  JM.IHI2  .. 

_ IF(ISINT(Ji2)-.NE.-IDINT(K»2))  GO  TO  422 

IFtlRL  .EQ.  0)  1RL*J  ' 

CONTINUE 

-CONTINUE  *• 

IL0B»IBH 

-IRLO(I)*IRL  — • 

IRHI(I)»IRH 

-CONTINUE 

PRINT.  -STRATEGIES- UNLESS  SUPPRESSED 

— IF4  IPR1NT  (2)_NE*-0>-G0-T0  500 

DO  460  K*l»2 

— IH13*NMISST (K) 

IHIIsNFULST (K) 

— 00-460  I — I • IHI  I : 

IL02-L0CSTT I.K) 

— IHI2*IL02*NM1SST(K)-I  ------  ~ 

IF ( ( I~I ) /50*50  .NE.  1-1)  GO  TO  438 

— WRITE  (LUN0.4 JO ) lBLUHO(K)  , ( ITPNT ( J.K) . 1MPNT ( JiK) • J«1 • 
FORMAT (IHI///. 1 ?X, AS. 15HPURE  STRATEGIES//, 6HSTRAT.4X 

-l  I2X. 1 8HPLANE  TYPE/MISSION/. 7H  NUMBER » 3X « 5HS T AGE. 6X » 
14(10(11. 1H/»II»2X)/20X)) 

— WRITE(LUN0,4.)5> 

WRIJEILUNoUaO)  I.ISINT(I.K)  . (XARRAY  (J) » J»IL02.1HI2> 
FORMAT (IX. 15, 5X. 13.4X,4(10Fb.2,/,I6X)) 

-CONTINUE 


1HI3)  „ 

, ahlast  , 


01640 
01650 
01660 
01670 
01680 
01690  ... 
01700 
01710 
01720 

01730 

01740 
01750 
01760 
. 01770 
oi  780 

01790 

OIB00 

01810 

01820 

01830 

01840 
_ . 01850 
01860 
01870 
01880 
' 01890 

01900 
0 1910 
01920 
01930 
01940 
01950 
01960 
_ 01970 

01980 
..  01990 
02000 
„ .02010 
02020 

.02030 

02040 

02050 

02060 

02070 

02080 

02090 

02100 
_ 02110 
02120 
02130 
02140 
_ „02150 

02160 
— 02170 

02180 
_ 02190 

02200 
02210 
02220 
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FIGURE  B-l  (cont’d) 


I 

| 


i 


_-C  COMPUTE  TOTAL  NUMBER  OF  STATES  

C 

SUO  NSTATsI  . .... 

ICNT*9 

00  blO.K«I*2  _ ...  

00  SIO  J*1  *4 

M*5-J 

ICNT*ICNT-1 _ 

IOEM(ICNT)*NSTAT 

NSTAT*NSTAT*NGRlO(M*L) 

510  CONTINUE 

NSTAT2*2*NSTAT 

WRITE (LUNO  *520 ) NSTAT 

- ...  S20 — .FORMA  T ( 1 H 1 * //25H  NUMBER  OF  STATES  EQUALS  *17)  

IF(1L0C*5»NSTAT2  . GT  • NWORK) 'CALL  ERR (A) 

NGl*NGRIO ( 1*1) __  __ 

N62»NGRI0(2*1) 

NG3*NGRI0(3*1) 

NGA»NGRI0(A,p 

NG5*NGRIU(  1*2) 

NG6*NGR 10(2*2) 

N67*NGRI0 (3*2) ...  ' 

NG8*NGRI0 (4*2) 

C . PRINT  STATES  UNLESS- SUPPRESSED 
IF  ( IPRINT  (3)  **«NE«  0)"go“tO  635 

icni»o — I . . . ■ 

00  630  U*1«NG1 

00  630  12-1, NG2 1 

DO  630  13*1 «NG3 
DO  630  IA*I«nGA 
00  630  15*1 *NG5 

00-630  16*1 «NG6- 

00  630  17*1 *NG7 

00  630  18*1, NG8—  — - ---  ....  _ 

ICNT*ICNT*I 

IF((ICNT-I>/50*50  . EQ.  ICNT-1)  WR1TE(LUN0,610)  - - 

610  FORMAT (1H1»//18X*27MLIS7  OF  ALL  POSSIBLE  STATES.//6M  STATE, 

-1 15X, AHBLUE*27X*3HRE0*/7H  NUMBER*7X*2  (19M1  J.  2 3 * 4, 

1 1 IX) /> 

-WRITE (LUNO *620 ) ICNT * JGRIO ( 11  * 1 ) * JGRID( 12.2) * JGR1D ( 13*3) , 

1 JGRID ( I A , A ) * JGRIO (15.5), JGRIO ( 16*6) *JGRID( 1 7,7) .JGRIO (18*8) 

420 FORMAT ( IX* I5«AX*2(AI6*6X) ) - - 

630  CONTINUE 

*35-  CALL  TIMER _ : 

c- 

c TERMINATE  EXECUTION  IF  ABORT  OPTION  IS  SPECIFIED 

c ... 

1F(IPRINT(A)  .EO.-l)  CALL  ERR (7)  . . 

JLOCI»ILOC 

C COMPUTE  FINAL  PAYOFFS  FOR  EACH  STATE  AND  STORE  IN 

£ NEXT-STAGE -ARRAYS  — ' - 

c 

00  645  II*1.NG1 — 

DO  6A5  12*1 ,NG2 

00  645  13*1  *NG3 


02230 
022A0 
02250 
02260 
02270 
02200 
02290 
02300 
02310 
02320 
02330 
02  3 AO 
02350 
02360 
02370 
02380 
02390 
02A00 
02A10 
02A20 
02A30 
62440 
02450 
02460 
02470 
02A60 
02A90 
02500 
_02510 
02520 
02530 
025A0 
02550 
02560 
-02570 
02580 
02590 
02600 
02610 
02620 
02630 
026AO 
02650 
02660 
02670 
02680 
02690 
02700 
02710 
02720 
02730 
O27A0 
02750 
02760 
02770 
02780 
02790 
02800 
02810 


t 


I 

r 


. 
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FIGURE  B-l  (cont’d) 

DO  645  I 1 • NGA  02630 

00  645  15*1. nG5  02830 

00  645  16=1 .NG6  02840 

- 00  645  17=1 »nG7  02850 

00  645  10=1. NG8  02860 

XARRAYULOC)  = YGR I D ( 1 1 . 1 ) * VALU < 1 . 1 ) ♦ YGR1 D ( 12 . 2 > • VALU (2. 1 ) ♦ 028  70 

1YGR1D(13.3) *VALU<3. 1 ) ♦ YGR I D < 14. 4 ) * V ALU < 4 . 1 ) - 02880 

1YGRID(I5.5)*VALU(1.2)-Y OR  10(16. b)*VALU(2.2)“  02890 

1YGR10(17.7)*VALU(3.2I-YGR10(18.8)*VALU(4.2)  02900 

_ XARRAY(ILOC)=XARRAY<1LOC)MOWGHT<1)*OW&HT(2))  02910 

lLOC= ILOC» 1 ' 02920 

- 645  CONTINUE  . __  02930 

JL0C2=IL0C-1  02940 

LOCBVB= JLOCl  _ 02950 

L0CEV8= JL0C2  02960 

00  648  I*JLOCl*  JL0C2  02970 

X ARRAY (1L0C)=X ARRAY  (I)  02980 

1L0C= ILOC* 1 02990 

648  CONTINUE  03000 

L0C8 VR= JL0C2*  1 - - __  03010 

LOCEVR=ILOC-l  03020 

K0C8V8=L0CEVR*1 . 03030 

KOC£V0*LOC£VR*NSTAT  03040 

K0CBVR=K0CEV8»1 03050 

KOCEVR=KOC£VB*NSTAT  03060 

— — — I0CBV8=K0C£ VR ♦ 1 . ......  03070 

J0CEV8*K0CEVR*NSTAT  03080 

J0CBVR=J0CFVB*1 . . . . 03090 

JOC£VR=JOC£VB^NSTAT  03100 

IOCBV8*JOCEVR*1  — 03110 

IOCEVB=JOCEVR^NSTAT  03120 

IOCBVR*IOC£VBM  03130 

10CEVR=IOCEVB*NSTAT  03140 

-LOCbPB=IOCEVR*  1 . 03150 

LOCEP0=IOCEVR^NSTAT  03160 

LOCbPR=LOCEPRM  ..  _ 03170 

L0CEPR=L0CEP8*NSTAT  03180 

00  650  I=1.NSTAT2  _ . . _ 03190 

J*I-1  03200 

XARRAY(JOCBVB*J)«XARRAY (L0CBVB*J)  03210 

650  CONTINUE  03220 

C 03230 

C READ  OR  COMPUTE  BATTLE  ASSESSMENTS  FOR  EACH  STATE  AND  03240 

- C—  PURE  STRATEGY  COMBINATION  AND  STORE  ON  SCRATCH  DISK  03250 

C " 03260 

- IHI 1=NFULST ( 1 ) - 03270 

IH12=NFULST (2)  03280 

NIN&AM=IH11*IHI2  03290 

LOCt)G=LOCEPR«  1 03300 

L0CEG=L0CEPR*N1NGAM  03310 

KOCBG=LOCfc'G»l  03320 

KOCtG=LOCtG»N  INGAM  03330 

IF (KOCEG  .GT.  NWORN)  CALL  ERR (5)  03340 

CALL  SECONO(T) 03350 

WRITE (LUN0.651 ) T 03360 

651— FORMAT  (/////1X.F9.3.25H  CPU  SECONDS  USEO  IN  INIT/)  03370 

IF ( I PR  I NT (5)  .LT.  2)  GO  TO  665  03380 

C — ....  ..  03390 

C IF  AVAILABLE  READ  BATTLE  ASSESSMENTS  FROM  BATTLE-TAPE  03400 

— C , 03410 


»> 
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FIGURE  B-l  (cont’d) 


DO  660  I = I »NST  AT 

BUFFER  IN  (Iuil)  ( 1 ARRAY (LOCBG) • I ARRAY (KOCEG) ) 
IF (UNIT ( 1 0 ) ) 655,653. oS3 
CALL  ERR ( 24 ) 

BUFFER  OUT  (III)  ( I ARRAY (LOCBG) • I ARRAY (KOCEG) ) 
IF (UNIT ( I ) ) 660 *658,658 
CALL  ERR (6) 

CONTINUE  - ■ - 

RETURN 


IF  BATTLE-TAPE  IS  NOT  AVAILABLE!  COMPUTE  ASSESSMENTS 
USING  SUBROUTINE  /BATTLE/  _ ' _I 


IRHI (IB) ) GO  TO  780 


DO  900  II*I»NGI  _ 

DO  900  12=1, nG2 

DO  900  13=1  iNG3 ....  = 

DO  900  14=1, NG4 

DO  900  15=1 ,NG5  

DO  900  16=1, NG6 
.DO  900  17=1, NG7 
DO  900  10=1, NG8 

LOCWD=LOC8G-l  

DO  BuO  IB-I.ihII 

..DO  BOO  IR=I , IHI2 

IW0RD=0 

JiORD«0  . 

IF ( IR  .LT.  iRLO(Id)  .OR.  IR  .GT.  IKHI (IB) ) GO 

-CNP(1,1)=YGRID(II,I)  - _ . 

CNP (2, I)*YGR 10(12,2) 

CNP (3,I)=YGRI0lI3,3)  _ 

CNP (4,I)=YGRlD(I4,4) 

CNP.(  1,2)=YGR  10(15,5)  

CNP (2, 2)=YGR 10(16,6) 

_CNP(3,2)=YGRID(I7,7)  _ ...... 

CNP(4,2)=YGRID(IB,a) 

—IF (IPRINT (6)  ,EO.  0)  GO  TO  6B0 
WRITE (LUNO , 6 70  ) IB,IR 
FORMAT ( / , 4H  I B = , I J , 2X ,3HI R» , 1 3) 

WRITE (LUNO, 675)  CNP 
FORMAT (/»4H  CNP,bF9.2) 

CALL  BATTLE 

_LOCLEV=0  _ 

DO  700  K=  I » 2 
DO  700  J = I ,4  ... 

LEVEL=CNP(J,K)/DELTA(J,K) ».5 
LOCLE V = LOCLEV ♦ 1 
KEVEL (LOCLEV ) *LEVEL 

CALL  SBYT ( IS  I T (LOCLE V ) , 7 , JWORD, LEVEL) 

CONTINUE 

80BJ  = 0.  - — - - . 

ROBJ=0. 

DO  720  J=I  ,3  — - _ 

B08J=B0B J*08jEC ( I » J) *0WGHT (J) 
ROBJ=ROBJ*OBJEC(2,J)*OWGMT(J)  - 
CONTINUE 

-10BJ=B08 J*  S IGN ( • 5, BOB J) 

JOB j=ROBJ»SlGN (.S.ROBJ) 

-IF ( I PRINT (6)  .EO.  0)  GO  TO  780 
WRITE (LUNO, 7 75)  CNP, IOBJiJOBJ, KEVEL 
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FIGURE  B-l  (cont'd) 


FORMAT  {4H  CNP * 8F9.2/6H  10b J=* 1 1 0.SX.SHJOB J= * 1 10 *bX. 7HLE VELS».BI4> 

IF ( I OBJ  .GE.  0)  GO  TO  7fiS 

lOBJa-IOGJ 

CALL  SBYT (60»I«IWOR0«l) 

CALL  SBYT (31 *29* I WORD* I OBJ) 

I F ( JOB J .GE.  0)  GO  TO  790 
J08J=- JOB J 

CALL  SBYT ( 30  » 1 * IWORO* 1 > 

CALL  SBYT(I«29*IW0aD»J08J> 

LOCWO=LOCWO* I 

1ARRAY (LOCWO) »iword  — 

1ARRAY (LOCWO.NlNGAM) =JW0RD 

BUFFERUOUT  (1*1)  ( 1 ARRAY (LOCBG) * I ARRAY (KOCEG)  ) 

IF (UNIT ( I) ) 875*850  «B50 
CALL  ERR (6) 

IF ( 1PR1NT (5)  .EQ.  0)  GO  TO  900  - - 

..  - WRITE  BATTLE  ASSESSMENTS  ON  BATTLE-TAPE  IF  REQUESTED 

BUFFER  OUT  ( 1 0 • 1 > ( 1 ARRAY (LOCBG) * 1 ARRAY ( KOCEG) ) 

IF (UNIT ( 10) ) 900*880*880 

CALL  ERR  <24) — - - - 

CONTINUE 

RETURN  - 

■ENO 


FUNCTION  1STATEUV)-.  - — , 

/1STATE/  COMPUTES  THE  1NOEX  OF  THE  STATE  CORRESPONDING 
TO  A SPECIFIED  COMBINATION  OF  GRID  POINTS. 

COMMON  /INPUT/  1M1SS(B,4.2) * IGR10 ( 1 1 *4.2) *LASTP*NALOC(B*4) * 

lNFRAC<4,2>,NSHL<2).NSTAGE.NUAPST.CASF(4,2>.lPaiNT(8)* 

I IT  I TLE  (8)  ,VAlU<4,2>  *PK.B0(4»4*2)  * PKBDES  ( A » 4 * 2 ) *XGR 1 0 ( 11 *4  * 2 > * 

IPKAD<4,4,2) *PKA0ES(4*4.2) *PKHA(4*4*2) fPKAA  <*»**2> • . 

1PKESB0(4.  A.  2)  ,PKES AO (4,4.2)  »PKSH(4.2)  *PKN5(4,2)  *RE  IN  (4  * 2 * 1 00 
1WGH 1(100*2) * XSORT (8*4*2) *NOI V < 2) * OWGHT (5) *NRSAM 12) * NFS AM  2) • 
1PkRS(4*2) *PKFS(4,2) *ABAF (8*4*2) *OIVFP(2) *PKWAFS(4*2) * 
1PKAAFS(4*2)  *PKAARS(4*2)  ♦PKAEES(4»2)  »PKAERS(4«2)  •^«tFS(4.2,. 
1PKFAFS  (4*2)  *PKRAFS(4*2)  «PKRARS(4*2)  *0FPREU(4*2)  *1EBA(2*2B)  * 

^OMMON^/WORKN/  NTYPE  (2)  *NM  I SS  ( 4*  2 ) .NMISST  (2)  *NGRID(4.2)  * 

I I 8LUR0  (2)  tNSTRAT  (4*23  .NFULST  (2)  . NST AT *N I NOAM  * 1MPN T (J2.2)  * 

1 1 TPNT ( 32*  2) » I DEM (8 ) »N3TRTC  < 2) » IRA ( 1 00 ) * JRA ( 100 ) *CUN 1 *LUNO • 
INWORK.NSTAT2.ISINT(iOC.2>  *IDINT( 100.21 .INPNT (32*2) 

COMMON  /WORNL/  LOCST 1-00*2) »L0C8G*L0CEG*KUCH»*K0CEG»L0C*VR» 
lLOCBVB.LOCEVR.LOCEV.G  0C8PR .LOCBPB « LOCCPR*EOCEPU * 
lKOCt)VB*KOCEvfB.KOCBvf  *COCE  YR  * JOCBVB  * JOCEVB*  JOCBVR*  JOLEVR* 

1 10CBVB. IOCEVB* I OCBVR • 1 OCE VR 
DIMENSION  1 V 1 1 ) 

ISTATE=IV(B).I 
DO  100  1=1*7 

1STATE=ISTATE*1Y(1)*I0EM(1) 

CONTINUE 

RETURN 

ENO 


04010 
04020 
040  JO 
04040 
040B0 
04060 
04070 
04080 
04090 
04100 
04110 
04120 
04130 
04140 
041S0 
04160 
04170 
04180 
04190 
04200 
04210 
04220 
04230 
04240 
04250 
04260 


00110 

00120 

00130 

00140 

ooiso 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

002S0 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 


B-29 


PAR-249 


FIGURE  B- 1 (cont'd) 


C 

C 

c 


SUBROUTINE  PRNT1N 

/PWNTIN/  PRINTS  the  input  parameters. 


L 


1NKORK.NSIAT3.ISIN7  50«Ij!“S  ;Wn!!?F^N1'LUN0'  - 

DIMENSION  1 HEAD  I a •2S)tlH(Ai^)tXFI4f2I iPKS I,*,«2) 


1J-A0H 

2)  -AOH 

3) «A0H 
A)«A0H  . 
5J-AQH 

6J-A0H 

7) -AOH 
8J-A0H  _ 

9) -AOH  ABA 


0ATA(IH£A0(1, 

. OATAdHEADd, 

■ DATAdHEAOd, 

— DATAdHEAOd, 

OATAdHEADd, 

OAT  A ( IHEAO  d , 

DATAdHEAOd, 

DATAdHEAOd, 

DATAdHEAOd,  .. 

DATA (IHEAD ( 1 , 10) -AOH 

DATAdHEAOd,  11J-AOH 

DATA ( IHEAD < 1 , 12) -AOH 

DATA<IhEAO(l»13)*AOH 

data (Iheao ( l , iai -aoh 

DATA (1HEAD(1 ,15) *A0H 

DATAdHEAOd, 16)*A0H 

OATAdHEADd, 17J-A0H 

DATA ( IHEAO (1 , 18) -AOH 

“RITE(LUNO,loO)  (ITITLEd).  1*1,6) 

-1-00 FORMAT(1H1,1X,6A10/) 

WRITE (LUNO* 102)  NSTAGE 
FORMAT (IX, 1BHNUMBER  OF  STAGES  -,I3) 
WRITE (LUNO  , 1 GA ) NOAPST 

format (ix*28hnumber  of 


CAS  ESCORT  AGAINST  MO 
00  AGAINST  CAS  ESCORT 
CAS  AGAINST  BD  ' ' 

BO  AGAINST  CAS 
ABA  ESCORT  AGAINST  ABO 
ABO  AGAINST  AUA  ESCORT 
ABA  AGAINST  ABO 
ABD  AGAINST  ABA 

AGAINST  NON-SHELtER£D  AIRCRAFT 


r ABA  AGAINST  SHELIERED  AIRCRAFT 
FORWARD  SAM  SUPPRESSOR  AGAINST  SAM 
SAM  AGAINST  FORWAKO  SAM  SUPPRESSOR 
REAR  SAM  SUPPRESSOR  AGAINST  SAM 
SAM  AGAINST  REAR  SAM  SUPPRESSOR 
SAM  AGAINST  CAS 
SAM  AGAINST  CAS  ESCORT 
SAM  AGAINST  ABA 
SAM  AGAINST  ABA  ESCORT 


102_ 


1 04 


UO 


-4Z0- 


— 125 


130 


1 AO 


150 


FORMAT  dX01010)  ‘ IBLURQOd  »NT TrI^k? *2 * 

FORMAT (IX , lOhNUMBER  OF  , A A , 1 AH  PLANE  TYP^s  « r3, 

WRITE(LUNO,1?0)  (IBEUR0(K),NUIV(KdKxIl2i 

Sr  r — ■ 

Format  d x * i ohnumber  of  ,aa,hh  shel  ter^».  im 

WRITE (LUNO* 1^0)  ( I8LURD(K) tNFSAM (K) *K«1 •?) 
FORMATdXdOHNUMMER  OF  ,AA.1SH  FORwARD^AlU  . rm 

FORMAniJX0.r0)  (IBLUH0(K)*NHSAM(K),K*d2?  ’ 
FORMAT  ( lXdOhNUMBER  OF  ,AA,l2H  REAR  SAMS  -,16) 


A) 


r 


V 
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00110 
00120 
00130 
001  AO 
OOISO 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
O02AO 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
OOJJO 
003A0 
003S0 
003b0 
00310 
00380 
00390 
OOAOO 
00A10 
00A20 
00A30 
OOAAO 
00A50 
00A60 
00A70 
OOABO 
00A90 
OOSOO 
00510 
00520 
00530 
005A0 
00550 
00560 
00570 
00580 
00590 
OObOO 
00610 
00620 
00630 
OObAO 
00650 
00660 
00670 
00660 
00690 
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riGURE  B-l  (cont'd) 


160 

200 

-210 


9HCAS  ORD  -*F6.2* 


.NE.  0)  GO  TO  250 


240 

-250 


.NE. 
• NE. 


0)  IM(J*K)*1M1SS(1*J*K) 

0.)  XF  (J*K)*XS0RT (1 *J*K) 


— 260 


f (IM(J«K) * XF (J*K) * J“1 *4 ) * K“ 1 * 2) 
»*F5»2* IX) ) > 


330 

340 

360 

370 

400 

-410 


420 

422 


WR1 TE CLUNO. lhO)  (OWGHT ( I ) • 1=1*3) 

FORMAT (IX, 29HOOJECT1VE  ) UNCTION  "EIGHTS 
1 3X ♦ 9HT0TL  F R - »Fb. 2 « 3X» 6HF EBA  -*P6.2) 

FORMAT^/// * ^29X*21 HMI SSI ONS  ASS IGNEO  AN0/.2BX,  _ 

123HASS0CI ATEO  SORTIE  RATES//) 

WRITE  (LUNO*  2 1 0 ) _ly  PLANE  TYPE/ 

FORMAT (15X.1SH8LUE  PLANE  T YPE, 21X . 14HRE0  PLANE  . ipe 

12U0X.25H1  2 3 4)/) 

00  300  1=1*0  

DO  240  K=l*2 
DO  240  J= 1 *4 
1F(IM1SS(1*J*X) 

CONT INUE 
GO  TO  310 
00  260  K=1 *2 
00  260  J=l*4 
IMC J*K>»0 
XF ( J » K ) *0. 

- IF  < I M I SS  1 1 • J . K » 

IF (XSORT ( 1 * J.K) 

CONTINUE 
WRlTE(LUN0.2o0> 

FORMAT (4X*2(3X»4(11*1H 
CONTINUE 

- WRITE (LUNO *210) 

00  315  K=1 *2  

—00  315  J=1  *4  — - : 

XF(J*K)-0. 

1F(NFRAC(J*K)  .EQ»- 0)  GO  TO  315 

XF ( J*K) “l ./NFRAC ( J*K)  

WRITE (LUNO  *318)  ( (XF ( J*K) * J=1 *4) *K  1*2) 

FORMAT (2X«2(3X»4(F7.2*1X) ) ) 

WRITE (LUNO. 320 ) 

FORMATT///  *35X*11HGRID  POINTS//) 

WRITETLUN0.210) 

_ 00  370  1 = 1*11  — • • 

00  330  K* 1 * 2 
00  330  J= 1 * 4 

IF<1GRI0U*J*K> 

CONTINUE 
GO  TO  400 
WRITE  (LUNO • 3bO ) 

FORMAT (3X»2(JX*4(I6*2X)  ) ) 

CONTINUE 

FIREPOWER  PER  SORUE//. 
URIIEaWo'.PPOt  t(CASF(J>K)  . J»1  .41  »?> 

FORMAT (3X*2(3X*4(F7.4»1X) ) ) 

FIREPOWER  REOUCHON,/ 

134X.14HPER  CAS  SORTIE//) 

WRITE  (LUNo!420)  UDFPREOU.N)  , J*1 .4) * K* 1 * 2) 

WRITE  (LUN0*423) 


•NE.  0 .OR. 


1 ,EQ.  1)  GO  TO  340 


( ( IGR1DT 1 « J»*>  *3*1 *4> *K“l *2> 


00(00 
00710 
00720 
00/30 
00740 
00750 
00760 
00770 
00  7B0 
00790 
00800 
ooaio 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
onio 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
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FIGURE  B-l  (coat'd) 


423 


424 


.NE.  0)  GO  TO  426 


- 425 
426 


27 


.NE.  0) 
.NE.  0.) 


IM  (J.K) 
XT (J.K) 


■IMISSll.  J»K) 
■ABAF(l.J.K) 


434 
_ — 435 


440 


.445 


.450 


460 

_470 

500 


FORMAT  (///  «.3UX«20HRESinUAL  VALUE  OK  AN/ 

123X. 33HUNDAMAGEO  PLANE  AT  ENO  OF  T rtt  WAR//) 

WRITE (LUNO. 2 1 0 ) 

WRITE (LUNO«4?0)  ( (VALU(J.K) .J«l*4) *K«1.2) 

WRITE (LUN0«4?4) 

FORMAT!///  .27X.26HFRACT ION  VULNERABLE  TO  ABA/.35X. 

110H8Y  MISSION//) 

WRITE (LUN0.2 1 0 ) 

oo  430  I = i * a 

00  425  K=1 .2 
DO  425  J=  1 . 4 
IF  ( 1MISSI I * J.K) 

CONTINUE 
GO  TO  431 
00  427  K=1 .2 
00  427  J=  1 • 4 
1M (J.K) *0 
XF(J.K)*0. 

1F(1M1SS(1.J.K) 

IF (AUAF ( 1 * J.K ) 

CONTINUE  , „ 

WRITE (LUNO *428)  ((1M(J.K).XF(J*K)*J«)*4)*K*1»2) 

FORMAT  (4X.2(3X.4(  11 1 1H-.FS.,3»  IX) ) > - — 

CONTINUE 

IF  (FEBA  (ltl)  .EQ.--1.)  GO  TO  439 
WR1TE(LUN0*433) 

FORMAT (1H1///.33X.13HFEBA  FUNCTION//) 

00  434  1*2.28 

IF  (FEBA (1.1)  .EQ.  0.)  GO  TO  435  - - — - - 

CONTINUE 

00  438  K*  1.1.7 
L*K*6 

WRITE(LUN0»436)  (FEBA(l.J) *J*K»L) 

FORMAT (/IX. 7hF  RAT10.6X.7F9. 3)  ■ 

WR1TE(LUN0.437)  (FEBA (2. J) .J*K»L) 

FORMAT (1X.8HM0VEMENT.5X.7F9.3) 

CONTINUE 

- 00  470  1 = 1 .NST7GE-  - 

IF( (1-11/50*50  .NE.  1-1)  GO  TO  445 

WRITE (LUNOf^40 ) - - — 

FORMAT ( 1H1//12X.9H08JECT I VE .2  1 24X . 14HRE 1 NF ORCEMENT S . 1 7X) /13X* 
17MWEIGHTS.29X.6HNUMBER.48X.8HFRACT10N/1BX.  --  - 

12 ( 13X* 15HBLUE  PLANE  TYPE . 12X. 14HRE0  PLANE  TYPE* IX) /1X.5HSTAGE* 
_ 14X.4HBLUE  «5X.3HRE0*2(7X»19M1  2 3 ...  4. IX). IX. 

12(7X.19H1  2 .3  4. IX)/) 

00  450  K*l.i — . • 

00  450  J=l«4 

1M(J«K)*RE1N(J.K.1) 

XF(J.K) *RE1NK ( J.K.l )-l. 

CONTINUE 

WRITE (LUNO. 460 ) 1 * (WGHT ( 1 *K) *K*1 .2) . ( ( 1M < J.K) . J*l .4) »K«1 . 2)  . 

1 ( (XF(J.K) »J=1.4) »K*l»2) 

FORMAT (3X.12.1X.2F8,2.2(3X.4I6) . IX.2 (3X.4K 6.2) ) 

CONTINUE 
WRITE (LUNO. 500) 

FORMAT (1H1./31X.18HK1LL  PROBABILITIES/)  

CALL  PK1LLS  ( IHEAO  ( 1 » 1 ) .PKBDE5. 0. * 0. > 

CALL.  PMLLS(lhEAD (1.2)  .PKESBU.O..O.)  - 


01240 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
0 1 380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 


| 


t 


I I 

I 1 
1 
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FIGURE  B- 1 (coin'd) 


CALL  PKILLS(IHEA0(1*3) 
CALL  PKILLS!  IHEAOU. 4) 
WRITE <LUN0.500) 

CALL  PKILLS  < IHEAO ( 1 *5) 
CALL  PKILL5 ( IHEAO!  1 .6) 
CALL  PK ILLS ( I HEAD  < 1 * 7) 
CALL  PKILLS!  IHEAOU. 8) 
WRITE(LUNO*SOQ) 

00  600  1=1*4 

00  600  J=l*4 

DO  600  K = 1 * 2 

PKS(I.J.K)=PKNS<J.K)_ 

CONTINUE 

CALL  PKILLS!  IHEADUj9) 
00  700  1=1*4 

DO  700  J=1  *4  

00  700  K=1 *2 

PKS! I*J.K)=PkSH!J.K) 

CONTINUE 

CALL  PKILLS!IHEAO!1.10 
WRITE(LUNO.SOO) 

CALL  SAMS! IHEAO! 1* 11) * 
CALL  SAMS!1HEA0!1«12>* 
CALL  SAMS!  lHf;A0(l*13) . 
CALL  SAMS!lHtA0!l*14)t 
WRlTE!LUNO*5oO> 

CALL  SAMS!IHEA0(1,15I ♦ 
CALL  SAMS!IHEA0!1*16) . 
CALL  SAMStIHtAOU.171  . 
CALL  SAMS!IHtA0!l*18) * 


• PK80 • 0 . * 0 . ) 

* PKBA  * 0 » * 0 « ) 

• PKADES * 0*  * 0 » ) 
,PKESAU*0, *0.) 
•PKADtO.tO.) 
•PKAAtO.tO.) 


*PKS*0*  *0* ) 


) *PKS*0.*0.) — 

1.. PKFS.-2.) 

1 • *PKF AFS*- 1 . ) 

1 • * -2» *PKRS ) 

1.. PKKAFS.PKRARS) 

l.*PKBAFS*-l.) 

1.. PKBEFS.-1.) 

1.. PKAAFS.PKAARS) 

1.. PKAEFS.PKAEKS) 


OlbBO 
0 1 840 
01900 
01910 
01920 
01930 
01940 
019S0 
01960 
019T0 
01980 
01990 
02000 
Q20 1 0 
02020 
02030 
02040 
02050 
02060 
02070 
02060 
02090 
02100 
02110 
02120 
02130 
02140 
021S0 
02160 
02170 
02180 


SUBROUTINE  PKILLS  (L ABL *PK* PKF *PKR ) 

/PKILLS/  ANO  /SAMS/  ARE  PRINT  SUBROUTINES  USED  IN 
CONJUNCTION  WITH  /PRNTIN/. 

COMMON  /WORKN/  NT YPE ( 2 ) *NM I SS (4* 21 *NMISST l 2) *NGR ID <4*2) * 

1 IBLURO (2) * NS T RAT  <4, 2) .NFULST (2) *NSTAT *N1N6AM* 1MPNT (32*2) • 
1ITPNT  ! 3 Ei . 2 » • IDEM <81  *NSTRTC!2)  *IRA!  100)  * JRA(IOO)  *LUNI  *LUNO* 
1NW0RK.NSTAT2. 1SINT (500.2) . IOI NT ! 1 00 *2 1 * INPNT ! 32 *2) 
OIMtNSION  L AHL ! 1 1 *PK (4 , 4 . 21 *PKF ( 4.2 ) *PKR(4.2) 

— WRITE(LUNO.lOO)  !L ABL  ! 1 ) . I * 1 *4) 

FORMAT !3(/) *20X»4A10*///*16X» 14HBLUE  KILLS  RED.20X* 

114HRE0  KILLS  BLUE,//. 19X.6HRE0  TYPE . 26X . OHRED  TYPE/ 
12<12X,22H1  2 3 4)1 

WRITE (LUNO*  20 0 ) !PK ( 1 . I .2) . 1 = 1 *4) . (PK ( I . 1 » 1 > * I«1 *41 
FORMAT ( 7X « 1 HI .4 (EX *FS . 3) *6X*4 ( 2X*FS.3» ) 

WRITE  (L  ;.:0*300)  ( PK  (2. I»2)»I  = l»4).(PK  (1. 2*11*1*1*4) 

FORMAT (7X,1H2*4 (2X .F5.3) *6X*4  (2X.FS.3) 1 

WRITE (LUNO *400)  <PK (3*1*21*1=1*4)*! PK(I*3*1)*I=1*4) 

FORMAT (7X*1HJ*4!2X.F5.3) *6X*4 (2X.F5.3)  ) 

WRITE (LUNO *500)  (PK(4.I»2)»1=1*4)*(PK(I*4»1)#I»1*4) 

FORMAT (7X. 1H4.4 (2X*F5, 3) *6X *4 (2X.F5.3) ) 

RETURN  - - --  - — 


02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 

02380 

02390 

02400 

02410 
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FIGURE  B-l  (cont'd) 


ENTRY  SAMS 

WRITE  (LUUO * 6Q0 ) (L ABL ( I ) * I*  1 • 4) 

FORMAT  (3(/)  */0X*4AIQ*///*  I6X.14HBLUE  KILLS  RED.20X* 
1I4HRED  KILLS  BLUE/)  . 

IF  (PKF  (1*1)  .EQ.  -2.  .OR.  PKR(l*l)  «EQ.  -2.)  00  TO  650 
WR  ITE  (LUN0.61 0 ) 

F0RMATI19X. SHRED  T Y PE* 25 X.9H8LUE  TYPE) 

GO  TO  670  — — 

WRITE1LUN0.660) 

F0RMAT(16X.9HBLUE  TYPE.26X* 8HRED  TYPE) 

WRITE(LUN0.6S0> 

FORMAT  (2<12X.22MI  2 3 **>> 

I F (PKF  <I»1)  .LT.  0.)  GO  TO  750 

WRITE (LUNO* 700)  (PKF ( J.2) * J= 1 * 4 ) « (PKF (J* 1 > * J"I *4) 
FORMAT (IX*  7HF0RWARD.4  (2X.F5.3l *6X*4 (2X.F5.3) ) 

IF  (PKR  ( 1 « 1 ) .LT.  0.)  RETURN 

WRITE(LUN0*800)  (PKR ( J*2) * l *4) * ( PKR ( J* 1 > » J*i * A) 
FORMAT (2X* 4HREAR.2X.4 (2X.F5. 3) *6X*4(2X*Fb.3>) 

RETURN 


02420 
02  >30 
02440 
024b0 
02460 
02470 
02480 
02490 
02500 
02b  10 
02S20 
02b30 
02540 
02550 
02560 
02570 
02580 
02590 
02600 
02610 


•SUBROUTINE  REAOIN 

/REAOIN/  READS  THE  INPUT  PARAMETER  CARDS. 

COMMON  /INPUT/  IMI SS (8*4*2) * I6RID ( 1 1 2) *LASTP*NAL0C(8*4) » 
1NFRAC (4*2) *NSHL (2) tNST AGE.NOAPST.CASF (4*2) * IPRIN T (8) » 

1 ITI TLE (6) . V ALU (4*2) *PK3D(4*4*2> iPKBDES (4*4*/) *XGRID ( 11*4*2)* 

1PK AO (4*4*2) *PKADES (4*4*2) *PK8A (4*4*2) *PKAA (4*4*2)  ♦ 

IPKESBD (4*  4 • 2 ) ,PKESAD(4,4,2).PKSH(4,2).PKNS(4,2),REIN(4,2,I00). 

1WGHT (100.2) . XbORT (8*4*2). NO IV(2) *OWGMT (5) .NKSAM (2) ,NFSAM(2), 

IPKRS(4*2)»PKFS(4*2)*ABAF (8*4*2) *01 VFP(2)*PKBAFS(4*2)* 

IPKAAFS(4»2) .PKAARS (4*2)*PKA£FS(4*2) *PKAER5(4*2) .PKBEF S (4*2 ) * 

I PKFAFS (4*2) * PKRAF5 (4*2) *PKRAKS(4*2) *DFPRE0(4*2) .FE0A12.28) * 

COMMON  /WORKN/  NTYPE(2) *NMISS (4.2) .NMISST 12) *NGRlD(-*.2)  * 

1 IBLURO  (2) .NSTRAT (4*2) *NFULST (2) * NS TAT  *NINGAM* IMPNT ( J2*2) * 
1ITPNT(32*2)*I DEM (B) ,NSTRTC(2) . IRA(IOO) .JRA1100) .LUN1 .LUNO* 
INWORK.NST  AT2* ISI NT (500.2) » IDINT( 100.2) . INPNT< 32.2) 

COMMON  /WORKL/  LOCST  (500. 2 ) .LOCBG .LOCEG » KOCBG.KOCEG »Ll)CB VR » 
1L0CBVB.L0CEVR .L0CEV8  *LOCBPR .L0C6PB . LOCEPR.LOCEPB. 
IKOCBV8.KOCEVR.KOC8VR.KOCEVR. J0C8VB* JOCEVB* JOCBVR. 30CEVR * 

-l IOCBVB* I0CEV8.I0CBVR.I0CEVR 

COMMON  /WORK/  I ARRAY (25000 ) _ ,,, 

DIMENSION  I DUMMY (8) * KEY (3b) .NALOCS (33*100*2) *MALOC (33) 

EQUIVALENCE  ( I ARRAY .NALOCS ) * (MALOC.LASTP) 

DATA (NKEYS=JO ) — 

DATA(IBLURD=4HBLUE*3HRED) 

DATA!LUNI=5) . (LUN0X6) 

DATA(KEY=3HRUN*4HMISS.4HGRID*4MPKBD*4HPKA0*4HPKBA* 

I4HPKAA.4HCASF.4HVALU*'*HSTAG*4HPKBE.4HPKA£*4HNSHL*4HPKSM* 

14HPKNS*4HSTRT.4HWGHT*4HPEIN*4mcwGH*4HNDIV*4HDIVF*4HUFRC* 

I 4HN5AM .4HPKF S *4HPKRS .4HFEBA.4HABAF  * 4HPKF A.4HPKRA*  3HEND.5 ( IH  ) ) 
DATA (RE I N=8 00 (0. ) ) * (RE INF =000 ( I. ) ) * ( WGHT»200 ( 1.  ) > 
0ATA(PKBD=32(0.) ) * (PKBDES«32(0») ) » (PKAD-32(0»> ) * (PKADES«32 ( 0.  ) ) 


00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 
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FIGURE  n-1  (cont'd) 


DATA(PKBA=32(0.)  ) . (PKAA  = 32(0.  ) > . < PKC S8D*32 < 0 . ) ) . (PKtSAD*32  (0.  ) ) 00950 

DATA(PKSH=8<0.) ) • (PKNS=8(0.) J 00A60 

DATA(CASF=8<0.) ) ♦ ( YALU=8<0.) ) * (NSHL*2<0) ) * (NFRAC-8 (0) ) 00<*7Q 

0ATA(NTYPE=2<0)  ) * ( NSTRTC*2  ( 0 ) ) . (IGRID*B8(0)  ) . ( IHISS*64(0)  ) 00480 

DATA(XSORT=64<0.)  ) . (ORGHT 3 1 • » A ( 0 • ) > . <ND1V*2<0)  ) • (NRSAM«2(0)  ) 00490 

DATA(NFSAM=2(0) ) * ( PKMS=B ( 0 . ) ) . ( PKFS*8 ( 0 • ) ) » ( A8AF«64 ( 1 . ) ) 00500 

DATA  <DIVFP  = 2 ( 0. ) ) * (PKflAF 5*8  < 0 . ) } « ( PK AAF S*8 1 0 . ) ) * <PK AARS*d ( 0 . ) ) 00510 

DATA(PKAEFS=8(0.) ) . < PKAERS«8 ( 0 . ) ) * (PKBEFS"8 < 0 . ) ) * <DFPRED*8 <0. ) ) 00520 

OATA(FEBA  = -l.fS5(0.) ) . (PKF AFS*8 ( 0. ) ) . (PKRAFS-8 (0. ) ) . (PKRARS-8 ( 0 . ) ) 00530 

DATAdPRINT  (11=0) . ' . ...  00590 

WRITE (LUNO.  70)  00550 

70  FORMAT  (IH1 ) - — 00560 

C 00570 

C--  REAO  OATA  CARO .. 0Q580 

C 00590 

J00  READ (LUN1 *1101  IKE Y . JBR  * JTP  * ( I DUMMY (I ) d*l  *8)  00600 

110  FORMAT(A4»2M*7A10*A4)  00610 

IF ( I PRINT  ( 1 ) .EQ.  0)  WRITE(LUN0.120>  1KEY»^BR,JTP*  ...  00620 

1 ( I DUMMY (I) *1=1*8)  00630 

_ 1.J20-  FORMAT<IX.A4,2A1.7A10.A4)  00640 

00  150  1=1 .NKEYS  00650 

IF  ( 1KEY  .EQ.  KEY.l.L) ) .GO  TO  200 , ___ _ _ 00660 

150  CONTINUE  00670 

CALL  ERR  (2) 00680 

00  TO  100  00690 

200  IBR*1 1 ' 00700 

IF ( J8R  .EQ.  1HR)  IBR*2  00710 

DECODE  ( 1*210  j-JTPJ ITP 00720 

210  FORMAT ( II ) 00730 

GO_  TO  (300. 320. 340. 360. 380. 900.A20.AAO.A60.A80. 500.510* 00740 

1520*540* 56 0.580*600. 620*630 .640.650. 66 0.6/0. 680*690.700*  00750 

XII 0 *720  * 730 .800 )_I_1 1 ' '.1L_1 11 1 00  760 

C 00770 

C RUN  CARO 00  780 

C 00790 

300  — DECODE  (74.301.  I DUMMY ) (1PRINT  (I). 1*1. 8)  . ( ITJTLEd ) .1*1.6) 00800 

301  FORMAT(AX,8I1,2X.6A10J  00810 

GO  JO-lOO 00820 

C 00830 

C MISS  CARD ... 008*0 

C G0850 

320  DECODE (74.321.1 DUMMY)  NFRAC ( I TP . I BR ) . ( IM1SS ( I . I TP . IBR> . 00860 

11*1.8). (XSORT  <I»1TP*IQR)»I=1*8)  00870 

—321  FORMAT <4X»I2.1X*8dX»I2)  .3X.8F5.2)  00880 

GO  TO  100  00890 

C— - — - — --  - 00900 

C GRID  CARD  00910 

C-  — 00920 

340  OECODE (59.341.IDUMMY)  ! IGR ID ( I . ITP . I BR) . I ■ 1 . 1 1 ) 00930 

34-1 FORMAT  (4X.  1 1 15)  — 009AQ 

IF (IGRID(l.IlP.IBR)  ,NE.  0)  CALL  ERR (9)  00950 

IF (NTYPE ( 1 0 R ) .LT.  ITP)  NT YPE (I BR) « 1 TP  00960 

GO  TO  100  00970 

C - - - - - 00980 

C PKBO  CARD  00990 

_C ..  . 01000 

360  DECODE (49. 361.1 DUMMY)  (PKBD  d * 1TP.IBR) .1*1.4) . 01010 

— KPKBOESd. ITP. IBR). 1*1.4)  -1-  - _ 01020 

361  FORMAT (4X.4F5.3.5X.4F5.3)  01030 
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00  TO  100 

c 

C PKAD  CARO  — — 

c 

380  0EC00E (49*361*I0UMMY)  (PKAD ( I » 1 TP  * I BR ) * 1 *1 *4) , 

1 (PKADES(l*ITp.  IBR) *1*1.4) 

— 60  TO  100  -----  - -- 

C 

C~  - PKSA  CARO  — - ---  

c 

— 400  DECODE (34*401*1  DUMMY)  (PKBA(1*ITP*1BR>,1«1,4) ,PKBAFS(ITP,1BR) 
401  F0RmAT(4X,4F5.3.5X,F5.3) 

GO  TO  100  - - 

C 

C PKAA  CARO — ...  — . 

C 

420  DECODE (39»42l « 1DUMMY1  (PKAA ( I * ITP* IBR) *1*1*4) *PKAAFS(1TP*1BR) « 

1PKAARS(1TP«1RRJ 

421  ••  FORMAT  (4X«4FS.3*5X.4F5. 3)  .....  ...  _ .... 

60  TO  100 

C CASF  CARO 

440  DECODE (24*441 *IOUMMY)  (CASF (I. IBR) *1*1*4) 

441  _ F0RMAT(4X*4F5.4)  - - — — _ 

60  TO  100 

C VALU  CARD 

460  DECOOE (24,461 . I DUMMY ) ( VALU ( I , IBR ) , 1*1 .4 ) 

— — 461 FORMAT  (4X,4F5*0) - - - - - 

GO  TO  100 


C STAG  CARO 

480  DECODE (10, 48 1,1  DUMMY)  NST AGE tNDAPST 

481  FORMAT  (2X,2(2X*  12)  )--_ . - -- 

60  TO  100 

C PKBE  CARD 

500  DECODE (34* 401 *1DUMMY)  (PKESBD ( 1 * 1 TP* 1 BR ) *1*1*4) *PKBEFS ( 1 TP* IBR) 

-60  TO  100  ’ 1 

C 

— C PKAE  CARO  - --  — - . _ - ...... 

C 

510  OECODE (39*421  * IOUMMY)  (PKESAO ( I * ITP, IBR > ,1*1,4) »PKAEFS ( I TP* UK)  * 

1PKAERS(1TP*IBR) 

GO  TO  100  , 

C 

— C NSHL  CARD  

C 

520  OECODE ( 9, 52l » IOUMMY)  NSHL (IBR) 

521  FORMAT (4X, 15) 

GO  TO  100  — - - - - 

c 

c PKSH  CARO - — — - - — — 

c 

540  OECODE (24 *541 ♦ IOUMMY) - (PKSH ( I * IBR) *1*1 ,41  — _ 

541  FORMAT (4X*4FS*3) 


01040 
01050 
OlObO 
01010 
01080 
01090 
01100 
OHIO 
01120 
01130 
01140 
01150 
01160 
01170 
Ol  160 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01420 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
01610 
01620 
01630 


FICURF.  B-l  (cont'd) 


01640 
01660 
01660 
01670 
01660 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
O'!  780 
01790 
01600 
01610 
01620 
01630 
01640 
01650 
01860 
01670 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
02140 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 


PKNS  CARO  

DECODE (24*541 . 1DUMMY)  (PKNS ( 1 . 1BR ) . 1*1 .4) 
GO  TO  100 


STRT  CARD 


DECODE ( 74  *581 • I DUMMY ) (MALOC(I) 
F ORMAT (12*4 (2  A.8  A2) ) 
NSTRTC(IBR)=NSTRTC(IBR)*1 

DO  583  1=2.33  — — 

IF (HALOC ( I > .EQ.  2H  • .OR.  HALO 
DECODE  ( 2. 562 .MALOC-(I)  l—IHOLD 
FORHAT (12) 

HALOC  ( 1 ) = I HOLD- 

CONTINUE 

JaNSTRTC  (IBR) — 

DO  584  1=1.33 

NALOCS  ( I . J.  IBR)  *HAL0C-(  1-1  


2H««)  HALOC ( I ) “2H-1 


584  CONTINUE 


DECODE  (9.601 . lDUMHT)_JtNGHT  (J.IBR1 
FORHAT ( I2.2X.F5.0) 

.6.0-10 . 100 — — 


REIN.  CARD 


_ DECODE (49. 621 1 1 DUMMY)  J. (REIN< I . IBR. J) . I”1 ♦*> 
1 (RE  INF (I.IBR.J) .1  = 1.4) 

. FORMAT (I2.2X.4F5.Q.SX.4F5.0) 

DO  625  1=1.4 

_REINF  ( I . IBR.  J)  =RE1NF.1I . IBR.  J)  *1.  — 

CONTINUE 

.GO  TO  100 — 


OUGHT  CARO 


DECODE (29, 631. IDUMMT)  (OUGHT  II) ♦ I»I »5) 
FORMAT (4X.5F5.0) 

GO  TO  100  


NDIV  CARD 

OECOCE (9.521 . IDUMMY) 
GO  TO  100 


D1VF  CAPO 


OECODE (9.651. IDUMMY ) DIVFP(IBR> 
FORMAT (4X.F5.0) 

GO  TO  100 


DFRC  CARD 


PAB-249 

riGURK  B-l  front'd) 


660 

C 

C 

c 

670 

671 

C 

C 

C 

— 680 
C 

c 

C-- — 

690 

C 

C 

- 700- 


DEC00t(24.441,I0UMMY)  (DFPRLO  ( I * IBR)  *1=1*4) 
00  10  100 

NSAM  CARO 

OECOOE1 14*671 .I0UMMY)  NFSAM(IBR) iNRSAM(IOK) 
FORMAT (AX. 215) 

GO  TO  100  

PKFS  CARO  - — - - - 

0EC00£(24.54l.I0LMMY)  (PKFS < 1 ♦ I BR > * I *1 > 4)  _ 
GO  TO  100 

PKRS  CARO 


0ECD0E(24.54I.1DUMMY)  (PKRS(I.IBR)  *1=1*4) 
GO  TO  100  


FEBAH  CARO 


IL0=(ITP-1)*7*1 — — 

IHI*IL0*6 

DEC0DE(74»701»I0UMMY)  < (FEB A ( 1 . J1 ♦ 1*1 .21 . J-ILO.IH1) 

701  F0RMAT(4X,14F5.0) 

— GO  TO  100 — 

c 

_c ABAF  CARO 


C 

—710 

711 

C 

— C 

C 

—720 

721 

C 

— C — 

C 

— 730- 
731 


DECOOE (44*711* IOUMM Y) - (ABAF  ( I » I TP. IBR) * 1 “1  * 8) 

FORMAT (4X.8F5.0) 

-GO  TO  100  — 

PKFA  CARO - ■ - — 

0ECD0EI9.721.I0UMMY)  PKFAFS ( I TP . IBR)  

FORMAT (4X.F5.3) 

GO  TO  100 - 

PKRA  CARO 


OECOOE (14  »73l . IDUMMY)  PKRAFSI ITP* IBR) .PKRARS < ITP * IBR) 
FORMAT (4X.2-r5,3) 

--GO  TO  100 — --  

ENO  CARD 1 - - 


C 

—BOO 


807 

-810 


DO  810  K=1  *2  ...  ..  - 

JaNSTRTC (K) 

DO  BIO  1 = 1. J- - 

BUFFER  OUT  (9.1)  (NALDC5 ( 1 ♦ I »K> .NALOCS (33. I ; K> ) 

IF (UNIT (9) ) 810.807.807  

CALL  ERR ( 21 ) 

CONTINUE  — - 

RETURN 

ENO — 


02230 

02240 

02280 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02380 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02480 

02460 

02470 

02480 

02490 

02800 

02510 

02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 

02600 

02610 

02620 

02630 

02640 

02650 

02660 

02670 

02680 

02690 

02700 

02710 

02720 

02730 

02740 

02750 

02760 

02770 

02780 
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FIGURE  B-l  (cont'd) 


SUBROUTINE  STRAI 

/STRAT/  GENERATES  THE  PURE  STRATEGIES  FOR  A PARTICULAR  PLANE 
TYPE  RESULTING  FROM  A SPECIFIED  ALLOCATION  OF  A MINIMUM 
ALLOCATION  FRACTION  TO  MISSIONS. 

COMMON  /INPUT/  IM1SS(8*4*2) * 1GR10 < 11 *4, 2) »LASTP *NALOC ( 8*4 ) * 
INFRAC (4*2) »NSHL(2) iNSTAGE .NDAPST * C ASF (4*2) *1PRINT<8) * 

1 1 T 1 TLE (6 ) *VAt.U<4»2) *PKBD  ( 4 ,*♦  * 2 ) *PKBDES (4*4*2) *XGRID(11*4*2), 
IPKAD (4*4*2) *PKAOES (4*4*2) *PKBA(4*4*2) *PKAA<4,4,2>» 

1PKES8D (4*4*2) .PKESAO (4,4*2) *PKSH(4*2) *PKNS(4*2) *KE1N(4«2* 100) * 
1WGHT (100*2) « XSORT (8*4*2J*ND1Y(2> *OWGHT (5 ) * NRSAM (2 > *NF  SAM (2 ) * 
1PKRS (4*2) * PKFS  <4*  2 ) » ABAF (8*4*2) *D1VFP(2) «PKBAFS(4,2) » 

1PKAAFS (4*2) * PKAAKS (4,2) ,PKAEFS(4*2) *PKAERS(4,2) *PKBEFS(4*2) * 
IPkFAFS (4*2) *PKRAF S (4*2) ,PKRARS(4*2) *DFPRED(4,2) *FEBA(2*2a>  * 
1REINK (4,2, 100) 

COMMON  /WORKN/  NTYPE12) *NMISS(4*2) *NH1SST (2) *NGR10(4*2) * 

1 IBLURO (2) .NSTRAT (4*2) *NFULST (2) *NS T AT  * N INGAM* IMPNT ( 32  * 2) * 

11TPNT (32*2) * IDEM (8) ,NSTRTC<2) * IRA(IOO) * JRA(IOO) *LUNI*LUNO* 
1NW0RK.NSTAT2* 1S1NT (500,2) *1UINT< 100*2) * INPN1 (32*2) 

COMMON  /«(ORKL/  LOCST (500*2) *LUCB6 *LOCEG * KOCUG.KOCEG .LOCiVR* 

-1LOCBVB«LOCEVR.LOCEVB»LOCBPR*LOCBPB,LOCEPR,LOCEPB* 

1K0CBVB«K0CEVB*K0CUVR*K0CEVR* JOCBVB* JOCEVB* JOCBVR* JOCEVR* 

1I0CBVB* 10CEV8* 10CBVR,I0CEVR  

COMMON  /RORK/  SPACER ( 18600) .STRATS (8,200.4) 

IF  NWORK  IS  CHANGED  IN  IN1T*  THE  LENGTH  OF  SPACER  MUST 
BE  SET  EQUAL  TO  NWORK-64O0. 

COMMON  /SPARM/  MFRAC*MMIS$*IBR,ITYPE*NST0K(B) * IPNT (B) 

DIMENSION  MSTOR(B) 

_ NSTRAT(ITYPE*IBR)*0  — 

MISSN=NM1SS(ITYPE,1BR) 

— FRACN=NFRAC(ITYPE*IBR) 

IF (MMISS  .NE.  0)  GO  TO  200 

—DO  100  1 = 1 *M ISSN  — - 

STRATS ( I » 1 • I TYPE ) =NSTOR (1) /FRACN 

CONTINUE  - . 

NSTRAT(ITYPEtIBR)=l 

RETURN 

IHI 1=MFRAC* I 

IL01»1  - - 

IF (MMISS  .EO.  1)  IL01=IH11 
DO  400  1 1 = 1LO 1 * 1H 1 1 
MSTOR ( I ) = 1 I- I 
_IHI2=IHI l-MSTOR(l) 

IL02=I 

IF (MMISS  *EQ.  2).IL02=IHI2 
DO  400  I2=IL02,IH12 
MSTOR ( 2 ) =1 2- I 
1HI3=IHI2-MST0R<2) 

ILO 3=1 

IF (MMISS  .EO.  3)  IL03=IH13 
DO  400  I3=IL03, IHI3 
MSTOR ( 3) =13-1 

IHI4=IHI3-MST0R(3)  — — - - 

IL04= 1 

IF (MMI SS  .EO.  4)  IL04*IH14  _ 

00  400  I4=1LG4* IHI4 
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FICUKi:  B-l  (cont'd) 


MSTOR (4  1*14-1 
1HI5*IHI4-MST0R(*.) 

1 L05*  1 

IF (MM  I SS  .EQ.  5)  IL0S*IH15 
00  400  IS*lL05*lHI5 
MSTOR ( 5 ) * 1 5- l 
IHlb*lHlS-MST0R<5) 
lLOb* 1 

IF ( MM J SS  .EO.  6)  1L06*IHI6  _ 

00  hOO  1 6= IL06  * I HI  6 
MSTOR (6 ) * 1 6- 1 
IHI7=IHI6-MSTOR(b> 

1L07=1 

IF ( MMI SS  .EO.  7)  IL07=1H17 

00  400  17*IL07*1HI7 
MSTOR (7 ) *17-1 

1 HI  8* IHI 7-MSTOR(7) 

1L08*1 

IF (MMI SS  .EO.  8)  IL08*IHI8 
DO  400  I8*1L08»IHI8 

- MST0R(8)*I8-i  - - — - , 

NSTRAT (1TYPE. 1BR>*NSTRAT ( 1TYPE. IBR) *1 

00  300  1*1 .MMlSS  — 

J*IPNT(I) 

NST0R(J)=MST0R(1>— - — ■ 

CONTINUE 

- J*NSTRAT ( 1 TTPE* IBR) 

DO  3S0  I*1.MISSN 

-STRATS ( I » J» I T YPE) *NSTOR ( I ) /FRACN 
CONTINUE 

CONTINUE  • 

IF(NSTRATdTYPE.IBR)  .GT.  2001  CALL  ERR(3) 

- RETURN  — — : 

END 


00700 
00710 
00720 
00730 
00740 
00  750 
00760 
00/70 
00/60 
00790 
00600 
00810 
00820 
00830 
O0B4O 
008SO 
00860 
00870 
00880 
00690 
00900 
00910 
_00920 
00930 
00940 
00960 
00960 
00970 
00900 
00990 
01000 
01010 
01020 
01030 


SUBROUTINE  TIMER 

__C /TIMER/  USES  AN  EMPIRICAL  FORMULA  TO  ESTIMATE  THE 

C EXECUTION  TIME  REQUIRED  FOR  THE  CURRENT  RUN. 

COMMON  /INPUT/  IMISS(8 *4*2) « IGRID ( 1 1 .4*2) .LASTP * NALOC (8 .4) * 

1NFRAC(4,2) ,NSHL(2).NSTAGE.N0APST.CASF(4.2) .IPRINT(B>» 

1ITITLE (6) * V ALU (4*2 ) *PKBD (4.4.2) »PK6DES(4»4*2)*XGRID(1I*4*2)» 

1PKAQ(4.4.2),PKA0ES(4.4,2).PKBA(4.4.2).PKAA(4.4,2). 

1 PKESBD (4.4.2) *PKE SAD(4. 4*2). PKSH(4*2)*PK NS (•♦*2)*REIN<4. 2*100). 

1WGHT (100.2) .XSORf (8. 4. 2). ND IV (2) .0WGHT(5) .NRSAM (2 ) .NFSAM (2) . 

IPKRS  (4.2)  »PKFS  (4.2)  . ABAF  (6.4.2)  .DIVFP(2>  . PKBAFS (*♦» 2)  » 

1PKAAF S (4. 2 ) .PKAARS (4.2) .PKAEFS(4.2) .PKAERS(4«2) «PKitFS(4*Z)  . 

1PKF  AFS (4 . 2 ) .PKRAFS (4.2) .PKRARS (4 .2 ) . DFPRED (4 . 2 ) »F EB A (2 . 28) . 

1REINF  (4.2.  1 00»  „ 

COMMON  /WORKS/  NTYPE ( 2) . NM1 SS (4. 2 ) . NMI SS T ( 2) . NGR ID (4 * 2) . 

1 1 3LURD (2) .N3TRAT (4.2) .Nr ULST (2) .NS  f AT .N I NOAM. IMPNT (32.2) » 

1 ITPNT (32.2) . IDEM (8) «NSTRTC(2) . IRA ( 1 00 ) » JR A ( 1 00 ) *LUN1 *LUNO. 

INWORK .NSTAT2.1 SI  NT (500 .2) » I DINT ( 1 00 .2) . 1NPNT (32.2) 


00110 

00120 

00130 

00140 

00150 

00160 

00170 

00160 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 
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FIGURE  B-l  (cont’d) 


COMMON  /WORKL/  ^OCST <B00 ,2) ,LOCB8.LOCEG.KOCJO.KOCEG.LOCBVR. 

ILOCBVB .LOCEVR .LOCEVB.LOCdPR.LOCflPB .LOCEPR .LOCEPB 

1KOCBVB .KOCEVB.KOCBVR.KOCEVR. JOCBVB. JOCEVB  « JOCBVR » JOCEVR » 

IIOCBVB.IOCEVB.IOCBVR. IOCEVR 
COMMON  /SINT  JL/  IRLO(BOO) «IHHI (500) 

DIMENSION  IFuNC<4),TIMEC(4).7IME1(4> 

DATA ( V*. 12) . (W-2.0E-3) . <Xd.2E-5> . ir«4.AE-4  . IZ-2.0E-A) 

DATAdFUNC=5H5£IUP.7H8ATTLES.5HGAMES.5rtT01AU 

IHI 1*NFULST ( I ) 

__  IHI2*NFULST  (2)  

TIMEC<I)=2.0 
T IMEI (I ) e2.0 
NTP*NTYP£ <1).NTYPE<2) 

NPNTS*I  - - “ 

DO  100  I*I»NIP 

NPNTS*NPNTS*2  

CONTINUE 

N8ATLS*0  

TIMEC<3)*0.  _ 

DO  200  I'l.lHlI - , 

NBATLS*NBATLSMRHI(II-IRL0(I)*1 

- CONTINUE  - _ • u 

T IMEC (2) *NSTaT*NDAPST*NBATLS*B 
TIMEI<2)=NSTaT*V 

DO  500  I=1.NSTAGE 
ICNT-0 

_ IFIISINTu’.n^NE.  IOINTd.il>  60  TO  300  _ 

ICNT*ICNT ♦ I 

— CONTINUE  

JCNT*0 

IFdSINTI  J.2)  .NE.  IDINT d. H) ) 60  TO  400 
...  - JCNT*JCNT»I  ~ 

_ _5?hecq>»timec(3).icnt*jcntmy.ntp*a«npnts>.zmicnt.jcnt> 

CONTINUE 

timec<3>=nstat«timec<3>  — 



T IMEI  (4>*TIM£l  (1>  ♦TIMEI  (2)  ♦!  IMEH3) 

rtl iSiaSuJJiix^oHCDc  1 ’ 

• 19H ( SECONDS) // 16X.8HFUNCT I0N.8X.8HCPU  T I ME » 3X. 6HI/0  UMt/ 

WRI  TE  (LUN0.660)  IFUNC  (I)  .TIMEC  (I ) iTIMEId) 

) FORMAT d6X.A7.9X.F8. 1 .3X.F8.1) 

WRI TE (LUN0.7S0)  IFUNC(4) .TIMEC(4) .TIMEI (4) 

) FORMAT </16X«A7«9X»F8.1 .3X.F8.1///) 

RETURN  


00300 
00310 
00320 
00330 
00340 
003S0 
00360 
00370 
00360 
00390 
00400 
00410 
0b420 
00430 
00440 
00450 
00460 
00470 
004H0 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00660 
_ 00690 
00700 
00710 
00720 
00130 
00740 
00750 
00760 
00  770 
00760 
00790 
00690 
00610 
00620 
00830 
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FIGURE  B-l  (cont'd) 

t 


i 

I 


i 


} 


SUBROUTINE  TRIALS  00110 

C 00120 

C /TRIALS/  COMPUTES  THE  MAXM1N  ANO  M1NMAX  BOUNDS  ANO  PERFORMS  0013U 

C THE  FORWAWO  EVALUATION  FOR  A TRIAL  AIKWAR  OF  SPECIFIED  00140 

C LENGTH  BEGINNING  WITH  A SPECIFIED  NUMBER  OF  BLUE  AND  RED  C01BO 

— C PLANES.  /TRIALS/  COMPUTES  THESE  VALUtS  USING  THE  OPTIMAL  00160 

C STRATEGIES  ANO  VALUES  PREVIOUSLY  DETERMINED  MY  /GAMES/.  00170 

C- 00130 

COMMON  /INPUT/  1M I SS  < 8 , A ,2 ) . 1 GR 10  ( 1 1 . A 1 2 ) .LASTP  .NALOC  ( 8 , A ) » 00190 

1NFRAC (4.2 ) .NSHLI2) .NSTAGE.NOAF'ST *CASF (4.2) , IPRINT (8) » 00200 

1ITITLE(6) * VALU (4*2) ,PKBO <4, A .2 ) , PKBOES (4 , A , 2) .XGHiO ( 1 1 *4*21 • 00210 

1PKAD<<M<M  2)  *PKA0ES(<m<m2)  ,PKBA<4.4,2>  *PK  A A ( <* . <m  2 ) * 00220 

1PKESBD<<M<M 2)  »PKtSA0(4,4,2)  ,PKSH<4,2>  ,PKNS<4,2)  t KE IN  (<m 2 « 1 00 ) • 00230 

1WGHT (100.2) , xSORT (6,4,2) .NO I V < 2 1 .ObGHT (5)  .N«SAM<2) .NF  SAM <21  , 00240 

1PKRS  (4.2)  .PKES <4,2 ) .ABAF  <8.4.2 ) ,01VFP<2) »PKUAFS<4,2) , 002S0 

1PKAAFS<4»2) »PKAARS<4,2) .PKAtFS (4,2) .PKALRS (4,2) .PKBEF  S (4.2) « 00260 

1PKFAFS (4,2) .PKRAFS  <4,21 ,PKRARS<4,2) ,0FPRED<4,2) ,FEBA<2,28) , 00270 

IRE  INF (4.2.100)  " 00280 

COMMON  /BORKN/  NT YPE ( 2) «NM I SS < 4. 2 1 .NM1 SST  (2 ) ,NGR I D (4. 2 ) , 00290 

1 I 3LURO (2 ) .NSTRAT (4.2 ) , NFULST (2) .NS  TAT .N INGAM, IMPNT (32.2) , 00300 

1ITPNT(32.2).10EM(8) .NSTRT  C (2) » IRA ( I 00) , JRA (100) .LUNI.LUNO,  00310 

— 1NW0RK.NSTAT2.ISINT (S00.2) .1DINT (100,2) « INPNT (32,2)  00320 

COMMON  /WGRKl/  LOCST (S00.2) .LOCBG , LOCEG , KOCBG , KOCEG .LOCH VR » 00330 

1LOCBVB.LOCEVR.LOCEVB.LOCBPR.LOCBPB.LOCEPR.LOCEPB.  00340 

1K0C8VB.K0CEVH.K0C8VR.K0CEVR.U0CBVB. JOCEVB. JOCBVR. JOCEVR,  00350 

1IOCBVB.IOCEVH.IOCBVR.IOCEVR  _ 00360 

COMMON  /BPARR/  CNP  (4, 2 ) , 16. IK ,XNP < 9 ,4 ,2 ) ,UB JEC ( 2 . 5)  00370 

COMMON  /INTERP/  BETA (2 .6 ) , IBETA (2 .8) , 1 1 , 12. 13, 14 i Hi. 16 , I 7 , 18,  00380 

1IHI1.IHI2,IHI3,IHI4,IHI5.IHI6,1HI7,IHI8  ~ 00390 

COMMON  /WORK/  XARRAY ( 25000 ) 00400 

DIMENSION  IOPTN<5)  , IOUT  < 1 0 )',  JOUT  (4 .2 ) , JOPI N ( 5)  , I ARRAY  < 1 ) 00410 

— DIMENSION  IPLAL (100,2) .XOBJF (3,100) .TXOBJF (3)  00420 

EQUIVALENCE  (XARRAY, IARRAY)  00430 

COMMON  /ROUND/  JOEX (4,2,2). _ 00440 

DIMENSION  MVEC(I) ,NVEC(I)  00450 

EQUIVALENCE  (MVEC, JOEX ( 1 « I , I ) ) « (NVEC. JOEX (1,1,2) ) 00460 

DATA< JOPTN*5<0) ) 00470 

NTRIAL*0  00480 

100  READ (LUNI ,110)  KE Y .MSTAGE , ( IOPTN ( I ) . I >1 , S) . ( (CNP ( 1 ,K) . >1 .4) . 00490 

1K«1«2) — . — ■ _ 00500 

110  FORMAT(A5,5X,I2,2X,5I1,1X,2(4F5.0,5X))  OOalO 

IF (EOF (LUNI ) ) 990,120  _ 00S20 

120  IF (KEY  ,EQ.  5HTRIAL)  GO  TO  200  00530 

IF  ( KEY  .EG.  SHF  INIS)  GO  TO  990  - --  — _ ..  00S40 

CALL  ERR (I?)  OOSSO 

GO  TO  100  - . O0S60 

200  IF (MSTAGE  .LE.  NSTAGE)  GO  TO  240  00570 

! CALL  ERR(18)  — - — 00580 

GO  TO  100  00590 

——240  DO  250  K*l»2  - — - — - 00600 

DO  250  1*1,4  00610 

IUP*NGHID  ( I ,K ) — . _ 00620 

IF ( CNP ( I ,K)  ,GT.  XGR1D ( IUP.I.K))  GO  TO  270  00630 

250 — CONTINUE  _ J . _ 00640 

GO  TO  300  00650 

270  CALL  ERR  ( 19) 00660 

GO  TO  100  00670 

300  - REBIND  7 ; 00680 


v 
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FIGURE  l?-l  (corn'd) 


305 


310 

320 

3<>0 

-350 

400 

405 
C — 

c 

c — 

410 

420 


REWIND  B 
REWIND  9 
tobjf=o. 

00  305  K-!?2  --  — 

00  305  I *1  *4 

JOU  f ( I *K ) *CNP ( I tK ) ♦ *5 

CONTINUE 

NT«1 AL=NTRIAL*1 

NSK1P=NSTAGE-MSTAGE 

IEINSKIP  .EG.  0)  GO  TO  400 

BUFFER  lt/lT^l)  ( I ARRAY  (l  OCBVB ) * 1 ARRAY  (LOCBVB)  ) 
IF (UNIT  17) ) 320*310*310 

BUFFERRlN^8.n  < 1 ARRAY (LOCBPB) . I ARRAY (LOCBPB)) 

— I r < UN  I T I © ) > 350*340*340 
CALL  ERR (15) 

BUFFERU1N  <7,1>  <1ARRAY<L0C8VB) .IARRAY(LOCEVR)) 

IF (UNIT (7) ) 410*405*405 
CALL  ERR  < 14) 


COMPUTE  MAXM1N  AND  MINMAX 


00  420  KM  • 1 6 
-MVEC (K) *0 
CONTINUE 
__00  460  KM*2 — 
L«3-K 

IUP*NTYPE (Ll 

DO  460  JM * lUP 
_NM 

00  440  MM  « 1 1 


450*445*440 


IF (CNP ( J*L) -XGRlU <M* J*LI  ) 

440  CONTINUE 

M*1 1 - 

445  N«0 

450  M*M- 1 

JDEX(J*L*K)=M 

jdex  ( J*L*L)  =m-n — — 

CONTINUE 

IBSMSTATElMVECI-l 
IRS* 1 STATE (NVEC)-l 

XMIN=XARRAY (LOCBVB* IBS) 

XMAX=XARRAY(LOCBVR*IRS) 

PERFORM  FORWARD  EVALUATION  FOR  SPECIFIED  TRIAL 

00  700  mm.mstage 
MSLOC=M*NSKIP 

BUF?ERM!n°(6!i)  (IARRAY(L0CBPB)*IARRAY(L0CEPR)) 

IF(UNIT(8))  510*505*505 
CALL  ERR (15) 

CALL  BETAS 
00. 600  NS1 *B 

!r(JSi*1»SIA!it;!BETA*2.Nn  MVEC  (N)  MBETA(2*N) 

600  CONTINUE 


460 


C 

C 

e 


505 

510 


00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
007/0 
00/80 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00  920 
00930 
00940  _ 
00950 
00960 
00970 
00960 
00990 
O10OO 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
onio 
01120 
01130 
01)40 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
0 ! 230 
01240 
01250 
01260 
01270 
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riGURE  B-l  (cont'd) 


— IS*ISTATE(MVLC)-1 

IB=1AHRAY(L0C8P8*1S) 

IR*1ARRAY (L0C8PK*1S) 

IPLAL  (Hi  1 )=LOCST (lb*  1 > 

1PLAL(M.2)*L0CST(1R*2) 

CALL  BATTLE 

BOB J30 • 

ROB J=Q  * 

DO  605  1=1*3 

B0BJ=B0BJ*08jEC(l*  I)»0wGHT  (I) 

R0BJ=R08J*0bjEC(2*I)'*0WGHT(l> 

605  CONTINUE 

08JF=BOBJ*WGhT(HSLOC*I)-ROBJ«WGHT (MSL0C.2)  

TOBJF=TOBJF*OdJF 

IF ( 10PTN<I I .NE.  0)  GO  TO  630  — 

ICNT =0 

00  610  K = l*2 - 

DO  610  1=1*4 

iCNT= ICNT ♦ 1 - — 

10UT ( ICNT ) =CnP ( 1 *K  ) ♦ .5 

CNP(l*K)=RElNF(l*K.NSLOC)»CNPtlrM*REIN(l*K*NSLOC)  

610  CONTINUE 

IOUT (9)*OBJF.SIGN(.5*OBJF)  

IOUT (I0)=T0BJF»S1GN(.5.T0BJF> 

__  BUFFER  OUT  (9*1)  ( IOUT* IOUT  ( 10)  ) . 

IF (UNIT  (9 ) ) 630*620*620 

620  CALL  ERR (20)  — II 

630  IF ( IOPTN (3)  .NE.  0)  GO  TO  700 

DO  640.  1 = 1*3 ... ---  - — - 

XOB JF ( I *M) “Ob JEC ( 1 * 1) *WGHT (MSLOC* 1 ) -OBJEC (2*1) *WGHT (MSL0C.2) 

640  - CONTINUE ' * 

700  CONTINUE 


C 

_c 


WRITE  DESIGNATED  OUTPUT  FOR  CURRENT  TRIAL 
,EQ.  NTRlAL-i)  GO  TO  720 


IF ( (NTRI AL- 1 ) /25*25 
oo-  no  1=1  *3__  - 

IF ( JOPTN ( 1 1 ,EQ.  0)  GO  TO  720 

CONTINUE  . _ 

GO  TO  730 
WRITE  (LUN0.725) 

FORMAT (1H1*//8X*6HNUMBER*7X*2(?HNUMBER  OF  PLANES  AVA1LABLE.27X 

l *6HMAXM IN/ • lX*5HTRI AL*4X»2M0F  *5X. 16M BLUE *4X. 

1 I red  — — — »4X*4HBLUfc*5X*3HRED*7X*2HVS*/* IX* 

1 13HNUMBER  ST  AGES* JX» I6HI  2 3 4*4X* 

H6H1  2 3 4*3X*6HMAXMIN*3X?6HM1NMAX*3X*  6hM INMAX) 

—730-  IMIN=XM1N*SIGN(.5*XMIN)  . . 

1MAX=XMAX*SIGN(.5.XMAX) 

IOBJF =T0BJF  *SIGN(.5*TQBJF.) — , 


J710-. 

_720 
725 

1 1 


00  735  1=1.5 

JOP IN(I)=10PTN(I) 

735  CONTINUE 

WRITE (LUNO* 740 ( NTRI AL .MSTAGE * ( (JOUT ( 1 *K) * 1 = 1 *4) *K»1 * 2) » 1M1N* 
UMAX*  IOBJF 

740  FORMAT (/2X.  1 3 *5X * I2*2X* 8 15*2 ( I8*1X) *18)  •—  — - — 

IF ( IOPTN ( 1 ( .NE.  0)  GO  TO  850 

REWIND  9 --  

DO  840  1=1 .MSTAGE 

IF ( ( I-I ) /50®5Q-.EQ» — I'D  WRITE (LUNO *800)  NTRIAL-  - — 


012U0 

01290 

01300 

01310 

01320 

01330 

01340 

01350 

01360 

01370 

01380 

01390 

01400 

01410 

01420 

01430 

01440 

01450 

01460 

01470 

01480 

01490 
01500 
01510 
01520 
01530 
01540 
01550 
_ 01560 

01570 
01580 
01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 
01800 
01810 

01820 

01830 
01840 
01850 
01860 
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FIGURE  B-l  (cont'd) 


FORMAT (IH1 »//2lX» 12HTRI AL  NUMBER. IS//I2X* ^NUMBER  OF  BLUE, 
I ITHNUMHER  OF  RED.BX.6HMAXM1N./. IX.5HSTAGE . bA * 

12  < 16HPLANES  AVAILABLE. 5X1 .3X*2HVS*/.lX.6rtNUMBER#4X# 

12  ( lbHl  2 3 A,5X).1X.6HMINMAX,AX,5H10TAL/) 

BUFFER  IN  ( 9 1 1 1 dOUT.IOUT(lO)) 

IF (UNI T < V) I fllQ.B0B.605 
CALL  ERR <20 ) 

WRITE (LUN0.820)  I. ( IOUT <J) .3*1 . 10) 

FORMAT  (1X*IA»2X*2(IX»AI5) .2X.2I9) 

CONTINUE 

IF ( IOPTN (2)  .NE.  01  GO  TO  900 

- DO  B90  K*1  *2  

IUP»NMISST  <K > 

- DO  890  1*1 .MST AGE 

IF( < 1-11/50*50  .NE.  I-ll  GO  TO  865 
WRITE (LUNO. 860)  NTRIAL* IBLUHD (K)  . 

1 (1TPNT  < J.KI .1MPNI < J.K) . J = 1 . IUP* 

— FORMATUHI.//2IX.I2HTMIAL  NUMBER.  15 .// 1 3X . - - 

13IHPLANE  ALLOCATION  FRACTIONS  FOR  , AA ,// . IX .5HSTAGE »16X . 
I1SHPLANE  T VPE/M 1 5SION,/ . IX. 6HNUMBER. 5X. 

13(12(11. 1H/.I1. 2X1/12X1  I 

— WRITE  (LUN0.862)  *■“ 


FORMAT (1H  ) 

— ILO*  1PLAL  ( I »K  1 

ITP*lLO*lUP-I 

WRITE (LUNO. 880)  I.  (XARRAY(J) *J*ILO*ITP) 
FORMAT ( IX. 14»5X.3( 12F5.2./.10X) ) 


fl90 CONTINUE 


900  IF  ( 10PTN  (3)  '.NE*  0)  GO  TO  100 

DO  905  1*1.3  . — " 

T X08 JF ( 1 ) =0 . 

905-  CONTINUE  

IF(a-l)/50*50A!EQ.  1-1)  WRITE(LUN0.910>  NTRIAL 
Q1A  FORMAT < lHl//2lXt I2HTRIAL  NUMUER* 15*// l2Xt ttH8LUE*WEOf 15X* 

1 3HBLUE-RED/ 1 X 1 5H5TAGC*8X*3HCAS 1 18X • 8HGRND*AIR 1 1 7Xt4NFEBA/ 

1 1 X. 6HNUMBER. 5X. 9HF I REPOWER. ^ A. 5HT0TAL.5X.VMF  I REPOWER* AX. 

15HT0T  AL*5X«8hM0VEMENT .5X .5HI0T AL/ > 

DO  915  J=l*3 

TX0BJF(J)*TX0BJF(J).X0BJF(J.I1 

K*2«  J 

IOUT (K-l ) *XOB JF ( J» I) *SIGN( .5.X0BJF ( J. I) 1 — 

IOUT ( K I *T XOH JF  ( J I *S I GN < .5.TX0B JF ( J > ) 

915 CONTINUE  , - rT 

WRITE (LUNO. 920)  I. (IOUT IJl .J*l»6) 

920 FORMAT ( IX. I A ,2X.3 < 3X.2I 10) ) 

930  CONTINUE 

: GO  TO  100  - 

990  RETURN 
END  - 


01870 
01880 
01890 
01900 
01910 
01920 
01930 
019A0 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
020  AO 
02050 
02060 
02070 
02080 
02090 
02100 
02110 
02120 
02130 
021*0 
02150 
02160 
02170 
02180 
02190 
02200 
02210 
02220 
02230 
022A0 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
023A0 
02350 
02360 
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FIGURE  B-2 
ATACM2  LISTING 


PROGRAM  ATACM2  ( OUTPUT ,TAPEA*65» TAPES. T APc6»0UTPUT* I APE7-65, 
lTAPt8--65*TAPE9*65) 

/ ATACM2/  AMD  ASSOCIATED  SUBROUTINES  ARE  USED  TO  EVALUATE 
TRIAL  AlwWAHS  USING  THE  OPTIMAL  STRATEGIES  AND  GAME  VALUES 
INPUT  FROM  A TRIAL-TAPE  WRITTEN  OURINCj  A PREVIOUS  RUN 
OF  /ATACMl/. 

COMMON  /INPUT/  IMISS(8*A*2) * IGR ID ( 1 1 ♦ A* 2) .LASTP .NALOC (8.*)  • 
lNrRAC(Af2) * NSHL ( 2 ) .NSTAGE.NUAPST.CASF (A*2) * IPRINT (8) * 

1 ITITLE (6) * VAi_U  (A.2) *PKaO(A.*«2> * PKBDES (A » A * 2) *XGKID( 1 1 *A*2) * 

— 1PkAD(A*A* 2) .PKAOES (A*A*2) *PK8A( A*A*2) *PKAA(A*A*2) » 

1PKESBO  ( A ♦ A * 2 ) *PrtSAD(A*A*2>  *PKSH(A*2)  * PKN5 < * * 2) *KE IN ( A ,2  * 1 00) * 
- 1WGHT (100*2) • XSORT  ( 8 * A * 2 ) « NO IV (2) .OWGHT 15) *NRSAH(2) *NFSAM(2)  • 
1PKRS ( A • 2 ) * PKFS ( A * 2 ) *A8AF (8* A *2) *DI  VFP( 2) *PKBAFS(A*2) * 

1PKAAFS (A *2) *PKAARS  (A»2) *PKAtKS(A*2>  .PKAER51 A *2) *PKBEFS (A  *2) • 
1PKF  AFS ( A * 2 ) .PKRAF  S (A*2) *PKRARS(A*2> .DFPREO (A.2) *f EBA(2*28) * 
1REINF (A. 2*100) 

COMMON  /WORKN/  NTYPEI?) »NMIS5(A*2)  *NMISST (2) *NGR1D(a*2)  * 

1 18LURD (2) *NSTRAT (A,  2) «NFULST (2) *NST AT  * Nl NG AM . IMPNT (32*2) * 

1 ITPMT (32*2) * 10EM (8) *NSTRTC (2) *IRA(100)*JRA(100) *LUNI *LUNO* 

1NWORK.NSTAT2,IS1NT(500*2) *1DINT(100*2)  * I NPNT  (32.2) 

COMMON  /WORKL/  LOCST (500*2) .LOCBO.LOCEG.KOCBG.KQCEG.LOCIVR* 

lLOCUVB.LOCE VR  »LOCE VB  *LOC8PR  *LOCBPB*LOCEPR .LOCEPB* 

lKOCbVB*KOCEVB.KOCBVR*KOCEVR*JOCBVB.  JOCEVB* JOCBVR* JOCEVR* 

MOCUVB.IOCEVB*  IOCBVR.  IOCEVR  — 

.COMMON  /WORK/  XARHAY (25000) 

COMMON  /ERROR/  IERR 

DIMENSION  INPUTZ (26B0) * WORKNZ ( 1 6 A 0 ) * WORKLZ ( I02A) .WOHKZ (25000) 

DIMENSION  1 ARRAY  ( 1 0000)  — 

DIMENSION  JGRID ( 11*8) .JPRINT (8) 

EQUIVALENCE  ( IM1SS.  INPUTZ) . (NTYPE* WORKNZ) * (LOCST .WORKLZ) 

EQUIVALENCE  ( IGR 10 . JGR 10) 

EQUIVALENCE  ( XARKA Y * I ARRAY . WORKZ ) — 

BUFFER  IN  (A, I)  ( I NPUTZ* INPUT Z (2680 ) ) 

IF_(UNIT(AJ)  200*150.150  

150  CALL  ERR (22) 

200  BUFFER  IN  (A.l)  ( WORKNZ » WORKNZ  ( 16A0 ) I ....  - - - 

IF (UNIT (A) ) 300*150.150 

300—  BUFFER  IN  ( Aj  1 ) (WORKLZ* WORKLZ  ( 102A)  ) — 

IF (UNI T < A) ) A00.150.150 

A00 -BUFFER  IN  (A.l)  (WORKZ.  WORKZ  (NWORK) ) . — 

IF (UNIT (A) ) A10.150.150 

*10  . _DO  A80  1 = 1 .NSTAGE  — 

BUFFER  IN  ( A« 1 ) ( I ARRAY (LOCBVB) * I ARRAY (LOCEVR) ) 

1F-IUNIT  (A)  ) a15*AS0.A5O  - 

*15  BUFFER  OUT  (7*1)  ( I ARRAY (LOCBVB) * IARRAY (LOCEVR) ) 

IF (UNIT ( 7) ) *20  * AbO  **60  r 

*20  BUFFER  IN  (A*l)  ( I ARRAY  (LOCHPB)  * IARRA-Y  (LOCEPR)  ) 

IF (UNIT (A))  *25* A50*A50  — . - — 

*25  BUFFER  OUT  (9*1)  ( I ARRAY (L0CBP8 ) * I ARR AY (LUCEPR ) ) 

IF  (UNIT  (8)  )_A80»A70.*70  - - - 

*50  CALL  ERR  < 22 ) 

*60—  CALL  ERR  ( 12) — 

A70  CALL  ERR (13) 

ABO CONTINUE  — ----- 

READ(LUNI .*90)  IKEY*  (JPRINT ( 1 ) * I"1  *8) 

*90 FORMAT  (A3.7X, BID  _ - 

IF (IKEY  *NE.  3HRUN)  CALL  ERR(16) 


001 10 
00120 
00130 
001A0 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
002A0 
OO250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
003*0 
00350 
- 00360 

00370 
003B0 
00390 
OOAOO 
00*10 
00A20 
00430 
0 0 A *0 
OOASO 
00*60 
00*70 
00A80 
0 0*90 
00500 
00510 
00520 
00530 
005*0 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
006*0 
00650 
00660 
00670 
00680 
00690 
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FIGURE  B-2  (cont'd) 

4.. 


50  0 IF ( JPR1NT  ( 1 ) .EQ.  0)  CALL  PRNTIN  _ 00/00 

1FUPRINT (2>,  .NE.  0)  GO  TO  700  00710 

DO  560  K = 1.2  00720 

IHI3=NMISST  (K  ) 00730 

IHI1=NFULST(K)  00740 

DO  560  I=l*lHll  00  750 

--IL02=L0CST(I.K)  _ _ _ 00760 

IHI2=IL02*NMISST  (K ) - 1 00770 

IF  ( ( 1“  1 ) /50*S0  .NE.  1-1)  GO  TO  538  00780 

WRITE (LUNO • 530)  lBLURD(K) * (I1FNT (J*K>  *IMPNT ( J.K > * J* 1 * IHI3)  00790 

— 530  -FORMAT  ( 1H1  / //» 1 7X » AS* 15HPURE  SIR# TEG IES// • 6H  STRAT 1 4X .4MLAST * 00800 

1 1 2X  • 18HPL ANE  T YPE/H 1 SSION/* 7H  NUMBER .3X. 5HST AGE tSX . 00810 

I4(10(IltlH/»I 1.2X)/20X)>  00820 

WRITE (LUNO  *535)  00830 

535  FORMAT  (1H  ) — 00840 

538  WRITE (LUNO. 5<*0)  I*ISINT(I*K)t (X ARRAY ( J)  « J* IL02* IHI2)  00850 

540  FORMAT  ( 1X»  I5.5X*I3*4X*4(10F5.2*/*I8X)  ) 00860 

560  CONTINUE  00870 

700  -IF  ( JPR 1NT  ( 3)  .NE.  0)  GO  TO  800  - - 00880 

ICNT-0  00890 

: NGl*NGRID(  1 1 1 > ..  ..  . ...  00900 

NG2*NGRID ( 2 1 1 ) 00910 

NG3*NGR3D(3*1)  ...  . . ...  . __  00920 

NG4*NGRI0(4*1)  00930 

NG5*NGRI D (1*2) 00940 

^IG6*NGR I D ( 2 • 2 ) -00950 

NG7*NGRlD(3t2) -00960 

f7G8»NGPID(4.2)  00970 

—00-730  1 1 = 1 *NGI _ 00980 

DO  730  12*1 *NG2  00990 

— 00  730  13*1  «NG3  - ...  _ ..  01000 

DO  730  14*1 »nG4  01010 

00  730  15*1  »nG5 — 01020 

DO  730  1 6* l » NG6  01030 

00  730  1 7=  1 « ,\|G7 — - _ 01040 

DO  730  18=1 >NG8  01050 

ICNT* I CNT ♦ 1 01060 

IF ( (ICNT-1) /50*S0  .EO.  ICNT-l)  WR I TE (LUNO* 7 1 0 ) 01070 

710  - -FORMAT ( 1H1 »//18X *27HLIST  OF  ALL  POSSIBLE  STATES.//6H  STATE*  01080 

1I5X.4HBLUE.27X.3HRED./7H  NUMBER » 7X  *2  ( 19M1  2 3 ' 4,  01090 

lUX)/)  L _ 01100 

WRITE(LUNO*720)  ICNT  * JGRID ( 11*1)  * JGKID  ( 12*2)  • JGR1D  ( 13*3)  • OHIO 

1 JGR ID (14*4) * )GRID(  15*5)  »JGR U) (16.6) *JGRID(17*7>  *JGRIDU8*8>  01120 

720  FORMAT (IX* I5*4X*2(4I6*6X) ) * 01130 

—730  CONTINUE  — - — 01140 

800  CALL  TRIALS  01150 

END  . - . ..._  01160 


In  addition,  ATACM2  uses  subroutines 

BATTLE 

BETAS 

ERR 

ISTATE 

PRNTIN 

TRIALS 

PKILLS 

all  of  which  are  listed  under  ATACM1 . 
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VARIABLES  MOST  FREQUENTLY  USED 
IN  ATACM1  AND  ATACM2 

Variable 

Subroutine  or 
COMMON 

Description 

ABAFfi,J,k) 

INPUT 

Fraction  of  type  ) aircraft  on  side  k assigned  to 
the  ith  mission  which  is  vulnerable  to  airbase 
attack . 

ALPHA 

GAMES 

Coefficient  used  in  the  linear  interpolation 
algorithm  to  weight  the  objective  function  value 
corresponding  to  that  point  in  the  state  space 
currently  being  examined. 

ATTK 

BATTLE 

Number  of  ABA  sorties  flown  against  the  opponent's 
airbase  during  the  current  one-cycle  battle. 

BETA(-.J) 

INTERP 

Weights  used  to  linearly  interpolate  an  objective 
function  value  for  a point  lying  between  two 
adjacent  grid  levels  in  dimension  J.  BETA (1, J)  is 
the  weight  for  the  value  corresponding  to  the 
lower  level;  BETA (2  ,j)  the  weight  for  the  higher 
level . 

BMIN(i) 

GAMES 

Minimum  value  in  the  ith  row  of  the  game  matrix 
for  the  current  state. 

BOBJ 

INIT 

TRIALS 

Value  of  Blue's  contribution  to  the  objective 
function. 

BTFP 

BATTLE 

Total  ground  firepower  delivered  by  Blue  during  the 
current  one-cycle  battle. 

CASF(j,k) 

INPUT 

Firepower  per  CAS  sortie  for  an  aircraft  of  type  J 
on  side  k . 

CASO  (k) 

BATTLE 

Total  CAS  firepower  delivered  by  side  k during  the 
current  one-cycle  battle. 

CHECK 

GAMES 

Objective  function  value  resulting  from  using  spe- 
cified Blue/Red  strategies  for  one  stage  followed 
by  the  use  of  optimal  conservative  strategies  by 
both  sides  for  all  subsequent  stages.  Used  to 
compute  MAXMIN/MINMAX  bounds. 

CHECKB 

GAMES 

Analogous  to  CHECK.  Used  to  compute  Blue's 
optimal  MAXMIN  play. 

CHECKR 

GAMES 

Analogous  to  CHECK.  Used  to  compute  Red's 
optimal  MINMAX  play. 

CNPO.k) 

BPARM 

Current  number  of  planes  of  type  j on  side  k. 

J 
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TAB  LB  B-3  (Cont'd) 


Variable 

Subroutine  or 
COMMON 

Description 

CNPVO) 

BATTLE 

Current  number  of  planes  of  type  j vulnerable  to 
the  opponent's  airbase  attackers. 

DELTAO) 

IPARM 

Distance  between  adjacent  "fine"  grid  levels  in 
dimension  J . 

DFPRED(J.k) 

•INPUT 

Division  firepower  reduction  produced  by  a CAS 
sortie  flown  by  aircraft  type  J on  side  k. 

DIVF  P (k) 

INPUT 

Firepower  produced  by  a ground  division  of  type  k. 

FEBA(i.J) 

INPUT 

ith  coordinate  of  the  Jth  point  in  the  set  of  points 
which  define  FEBA  movement  as  a function  of 
Blue/Red  force  ratios. 

FBACN 

STRAT- 

Denominator  of  the  minimum  allocation  fraction 
for  the  current  aircraft  type. 

FRATIO 

BATTLE 

Ratio  of  Blue  ground  firepower  to  Red  ground  fire- 
power for  the  current  one-cycle  battle. 

LARRAY(-) 

WORK 

Work  array  used  to  store  strategies,  battle 
assessments,  and  MAXMIN/MINMAX  plays  and 
objective  function  values.  EQUIVALENCED  to 
XARRAY. 

IB 

BPARM 

Index  of  the  strategy  employed  by  Blue  in  the 
current  one-stage  battle. 

IBETA(-.J) 

INTERP 

Indices  of  grid  levels  lying  on  either  side  of  an 
interpolation  point  in  dimension  J.  IBETA(l.J)  is- 
one  less  than  the  subscript  corresponding  to  the 
lower  grid  level;  I BETA (2  ,J)  is  one  less  than  the 
subscript  corresponding  to  the  higher. 

IBH 

I NIT 

High  bound  on  the  range  of  stages  over  which 
the  current  Blue  strategy  can  be  played. 

IBIT(i) 

IPARM 

Rightmost  bit  in  the  ith  7-bit  byte  of  the  word 
used  to  store  the  results  of  a one-stage  battle 
assessment.  From  left  to  right,  bytes  1-4  are 
used  to  store  levels  of  Blue  aircraft  of  types  1-4; 
bytes  5-8  levels  of  Red  aircraft  of  types  1-4. 

IBL 

I NIT 

Low  bound  on  the  range  of  stages  over  which  the 
current  Blue  strategy  can  be  played. 

IBLURD0O 

WORKM 

Hollerith  constant  equal  to  "BLUE"  if  k=l  or 
"RED"  if  k=2 . 
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TABLE  B-3  (Cont'd) 


Variable 

Subroutine  or 
COMMON 

Description 

IBPLAY 

GAMES 

Index  of  Blue's  optimal  MAXMIN  strategy. 

IBR(k) 

BPARM 

Index  of  the  strategy  employed  by  side  k in  the 
current  one-stage  battle. 

IDEM(-) 

WORKN 

Array  of  constants  used  to  compute  the  number  of 
the  state  corresponding  to  a set  of  grid-level 
indices.  Constants  are  assigned  in  INIT. 

IDINTfr.k) 

WORKN 

Latest  stage  for  which  the  set  of  strategies  avail- 
able to  side  k during  stage  t are  applicable. 

IDUMMY(-) 

READIN 

Array  used  for  temporary  storage  of  input  parameters 
prior  to  their  being  decoded. 

IERR 

ERROR 

Flag  indicating  the  severity  of  the  last  diagnostic 
message  printed. 

IETYPE  (1) 

ERR 

Severity  code  associated  with  diagnostic  i.  Codes 
1,2,  and  3 correspond  to  "INFO",  "ERROR",  and 
"ABORT"  respectively. 

IGRID(i,J,k) 

INPUT 

ith  grid  level  assigned  to  aircraft  type  j on  side  k. 

IHEAD(> , •) 

PRNTIN 

Array  of  explanatory  titles  used  to  print  input  para- 
meters in  an  easy- to-read  format. 

IKEY 

READIN 

Card  key  on  the  current  input  card. 

IMAX 

TRIALS 

Rounded  MINMAX  bound  on  the  value  of  the  objec- 
tive function  for  the  current  trial. 

IMESSG(>  ,1) 

ERR 

Diagnostic  message  associated  with  error  code  l. 

IMIN 

TRIALS 

Rounded  MAXMIN  bound  on  the  value  of  the  objec- 
tive function  for  the  current  trial. 

IMISS(i,J  ,k) 

INPUT 

Code  of  the  ith  mission  assigned  to  aircraft  type  J 
on  side  k . 

IMPNT(i.k) 

WORKN 

ith  mission  code  assigned  to  aircraft  types  on 
side  k . 

► 

INPNTd.k) 

WORKN 

Index,  within  an  aircraft  type,  of  the  ith  mission 
code  assigned  to  all  aircraft  types  on  side  k. 

INPUTZ(>) 

INPUT 

Single  array  EQUIVALENCED  to  COMMON  block 
INPUT. 

IOBJ 

GAMES 

INIT 

Blue's  contribution  to  the  value  of  the  objective 
function  resulting  from  a one-stage  battle. 

1 
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Variable 

Subroutine  or 
COMMON 

Description 

IOBJT 

TRIALS 

Rounded  cumulative  value  of  the  objective  function 
produced  by  playing  optimal  MAXMIN  strategies 
against  optimal  MINMAX  strategies  during  the 
current  trial. 

IOCBVB 

WORKL 

Beginning  location  of  the  area  used  in  XARRAY  to 
store  current-stage  MAXMIN  values  for  Blue. 

IOCBVR 

WORKL  . 

Beginning  location  of  the  area  used  in  XARRAY  to 
store  current-stage  MINMAX  values  for  Red. 

IOCEVB 

WORKL 

End  location  of  the  area  used  in  XARRAY  to  store 
current-stage  MAXMIN  values  for  Blue. 

IOCEVR 

WORKL 

End  location  of  the  area  used  in  XARRAY  to  store 
current-stage  MINMAX  values  for  Red. 

IOPTN(i) 

TRIALS 

Value  of  the  ith  print  option  specified  on  the 
current  TRL\L  card. 

IPLALfc.k) 

TRIALS 

Beginning  location  in  XARRAY  of  the  optimal  alloca- 
tion fractions  used  by  side  k during  stage  t of  the 
current  trial  war. 

IPNT(i) 

SPARM 

Index  of  the  ith  strategy  for  which  an  allocation 
fraction  is  not  specified. 

IPPNT(l) 

TEMP 

Pointer  indicating  the  dimension  in  the  state 
space  which  corresponds  to  the  ith  aircraft  type 
assigned. 

IPRINT(i) 

INPUT 

Value  of  the  control  parameter  specified  for  the 
ith  print  option  on  the  RUN  card. 

IR 

BPARM 

Index  of  the  strategy  employed  by  Red  in  the 
current  one-stage  battle. 

IRA(-) 

WORKN 

Array  of  indices  used  in  conjuction  with  the  ran- 
dom access  file  TAPE2  . 

IRHI(i) 

SIN1VL 

High  bound  on  the  range  of  Red  strategies  which 
can  be  played  against  the  1th  strategy  of  Blue. 

IRLO(i) 

SINTVL 

Low  bound  on  the  range  of  Red  strategies  which 
can  be  played  against  the  ith  strategy  of  Blue. 

IRPLAY 

GAMES 

Index  of  Red's  optimal  MINMAX  strategy. 

ISINT(i,k) 

WORKN 

Latest  stage  for  which  the  ith  strategy  available 
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Variable 


ITITLE(-) 


ITPNT(l,k) 


IVERT(-.J) 


IWORD 


JBETA(-,J.k) 


JDEX(- , • , k) 


JOCBVB 


JOCBVR 


JOCEVB 
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TABLE  B-3  (Cont'd) 


Subroutine  < 
COMMON 


READIN 


SPARM 


GAMES 

INIT 


ROUND 


GAMES 

INIT 

'WORKL 


WORKL 


Description 

Number  of  the  state  corresponding  to  a set  of  grid 
levels . 

Array  used  to  store  the  run  title  as  specified  on 
the  RUN  card. 

Flag  to  Indicate  whether  the  parameters  on  the 
current  card  are  for  Blue  or  Red.  ITP=i  corres- 
ponds to  Blue,  ITP=2  to  Red. 

Aircraft  type  to  which  the  ith  mission  on  side  k is 
assigned. 

Aircraft  type  for  which  the  current  strategies  are 
being  generated. 

An  NPTT-tuple  of  l’s  and  2's  representing  the  Jth 
vertex  of  a "cube"  in  the  state  space.  The  number 
of  possible  tuples  equals  LPTT. 

Word  containing  both  Blue  and  Red  contributions 
to  the  value  of  the  objective  function  resulting 
from  a one-stage  battle.  Blue's  contribution  is 
packed  into  the  leftmost  30  bits.  Red's  in  the 
rightmost  30  bits. 

Indices  of  grid  levels  lying  on  either  side  of  the  kth 
"fine"  grid  level  in  dimension  j.  JBETA(l,j,k)  is 
one  less  than  the  subscript  corresponding  to  the 
lower  grid  level;  JBETA(2,J,k)  is  one  less  than 
the  subscript  corresponding  to  the  higher. 

Array  of  grid-level  indices  used  to  compute  the 
state  resulting  from  rounding  the  numbers  of  air- 
craft on  side  k down  and  the  numbers  opposing 
side  k up. 

Red's  contribution  to  the  value  of  the  objective 
function  resulting  from  a one-stage  battle. 

Beginning  location  of  the  area  used  in  XARRAY  to 
store  next-stage  MAXMIN  values  for  Blue. 

Beginning  location  of  the  area  used  in  XARRAY  to 
store  next-stage  MINMAX  values  for  Red, 

End  location  of  the  area  used  in  XARRAY  to  store 
next-stage  MAXMIN  values  for  Blue. 
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TABLE  B-3  (Coat'd) 


Variable 

Subroutine  or 
COMMON 

Deuci  iptlon 

JOGEVR 

WORKL 

End  location  of  11)0  area  used  in  VARRAY  to  store 
next-stage  MINMAX  values  for  Red. 

JOPTN(i) 

TRIALS 

Value  of  the  ith  print  option  specified  on  the 
previous  TRIAL  card . 

J PRINT  (i) 

ATACM2 

Value  of  the  control  parameter  specified  for  the 
ith  print  option  on  the  RUN  card. 

JRA(-) 

WORKN 

Array  of  indices  used  in  conjunction  with  the  ran- 
dom access  file  TAPE3. 

JWORD 

GAMES 

INIT 

Word  containing  "fine"  grid-level  indices  indi- 
cating the  numbers  of  planes  remaining  after  a 
one-stage  battle. 

KEVEL(') 

INIT 

Array  of  "fine"  grid-level  indices  indicating  the 
numbers  of  planes  remaining  after  a one-stage 
battle. 

KEY(-) 

READIN 

Array  of  valid  card  keys  recognized  by  READIN. 

KOCBG 

WORKL 

Beginning  location  of  the  area  used  in  IARRAY  to 
store  numbers  of  planes  available  after  one-stage 
battle  assessments. 

KOCBVB 

WORKL 

Beginning  location  of  the  area  used  in  XARRAY  to 
store  interpolated  current-stage  MAXMIN  values 
for  Blue. 

kocbvr 

WORKL 

Beginning  location  of  the  area  used  in  XARRAY  to 
store  interpolated  current-stage  MINMAX  values 
for  Red, 

KOCEG 

WORKL 

End  location  of  the  area  used  in  IARRAY  to  store 
numbers  of  planes  available  after  one-stage 
battle  assessments. 

KOCEVB 

WORKL 

End  location  of  the  area  used  in  XARRAY  to  store 
interpolated  current-stage  MAXMIN  values  for 
Blue. 

KOCEVR 

WORKL 

End  location  of  the  area  used  in  XARRAY  to  store 
interpolated  current-stage  MINMAX  values  for  Red. 

LASTP 

INPUT 

Last  stage  thru  which  the  current  STRT  card  is 
applicable. 

LEVEL 

GAMES 

INIT 

Index  of  the  "fine"  grid-level  corresponding  to  the 
numbers  of  planes  remaining  after  a one-stage 

battle. 
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TABLE  B-3  (Cont'd) 


Variable 

Subroutine  or 
COMMON 

Description 

LOCBG 

WORKL 

Beginning  location  of  the  area  used  in  IARRAY  to 
store  objective  function  values  resulting  from 
one-stage  battle  assessments. 

LOCBPB 

WORKL 

Beginning  location  of  the  area  used  in  IARRAY  to 
store  the  Indices  of  optimal  MAXMIN  plays  for 
Blue . 

LOCBPR 

WORKL 

Beginning  location- of  the  area  used  in  IARRAY  to 
store  the  indices  of  optimal  MINMAX  plays  for 
Red. 

LOCBVB 

WORKL 

Beginning  location  of  the  area  used  in  XARRAY  to 
store  interpolated  next-stage  MAXMIN  values 
for  Blue. 

LOCBVR 

WORKL 

Beginning  location  of  the  area  used  in  XARRAY  to 
store  interpolated  next-stage  MINMAX  values 
for  Red . 

LOCEG 

WORKL 

End  location  of  the  area  used  in  IARRAY  to  store 
objective  function  values  resulting  from  one-stage 
battle  assessments. 

LOCEPB 

WORKL 

End  location  of  the  area  used  in  IARRAY  to  store 
the  indices  of  optimal  MAXMIN  plays  for  Blue. 

LOCEPR 

WORKL 

End  location  of  the  area  used  in  IARRAY  to  store 
indices  of  optimal  MINMAX  plays  for  Red. 

LOCEVB 

WORKL 

End  location  of  the  area  used  in  XARRAY  to  store 
interpolated  next-stage  MAXMIN  values  for  Blue.  • 

LOCEVR 

WORKL 

End  location  of  the  area  used  in  XARRAY  to  store 
interpolated  next-stage  MINMAX  values  for  Red. 

•LOCST(i.k) 

WORKL 

Beginning  location  in  XARRAY  of  the  allocation 
fractions  which  define  the  ith  strategy  of  side  k. 

LOCWD 

INIT 

Location  within  IARRAY  where  the  results  of  the 
next  one-stage  battle  will  be  stored. 

LPTT 

GAMES 

Total  number  of  vertices  on  a "cube"  in  the  state 
space.  Equals  2 raised  to  the  NPTT  power. 

LUNI 

WORKN 

Logical  unit  number  of  the  primary  input  device 
(card  reader).  In  the  current  version  LUNI=5. 

LUNO 

WORKN 

Logical  unit  number  of  the  primary  output  device 
(line  printer).  In  the  current  version  LUNO=6. 
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Variable 

Subroutine  or 
COMMON 

Description 

MALOC(-) 

INPUT 

Input  array  used  for  tempoiary  storage  of  STpT  card 
parameters . 

MFRAC 

SPARM 

Numerator  of  the  fraction  of  aircraft  unspecified 
on  the  current  STRT  card  for  the  current  aircraft 

type. 

MISSN 

ST  RAT 

Number  of  missions  assigned  to  the  current  aircraft 
type. 

MMISS 

SPARM 

Number  of  missions  assigned  to  the  current  aircraft 
type  for  which  allocation  fractions  are  not  spec- 
ified. 

MSLOC 

GAMES 

TRIALS 

Number  of  the  stage  for  which  current  calculations 
are  being  made. 

M STAGE 

TRIALS 

Number  of  stages  specified  on  the  current  TRIAL 
card. 

MSTOR(i) 

ST  RAT 

Numerator  of  the  allocation  fraction  for  the  1th 
mission  assigned  to  the  current  aircraft  type. 

MVEC(-) 

ROUND 

Array  of  grid-level  indices  us.ed  to  compute  the 
number  of  the  corresponding  state. 

NALOC(i.J) 

INPUT 

Numerator  of  the  allocation  fraction  specified  on 
the  current  STRT  card  for  the  ith  mission  assigned 
to  aircraft  type  J . 

NBATLS 

TIMER 

Total  number  of  battle  evaluations  required  for  each 
stage,  state,  and  cycle. 

NDAPST 

INPUT 

Number  of  cycles  per  stage. 

NDIV  00 

INPUT 

Number  of  ground  divisions  specified  for  side  k. 

NFRACO.k) 

INPUT 

Denominator  of  the  minimum  allocation  fraction 
specified  for  aircraft  type  J on  side  k. 

NFSAMOc) 

INPUT 

Number  of  forward  sAMs  specified  for  side  k. 

NFULST  (k) 

WORXN 

Total  number  of  strategies  available  to  sidr  k. 

NGRIDO-k) 

WORKN 

Number  of  grid-levels  specitied  for  aircraft  type 
) on  side  k. 

ningam 

WORKN 

GAMES 

Number  of  elements  in  each  one-stage/one-state 
game  matrix. 

NKEYS 

READIN 

Number  of  valid  card  keys  recognized  by  READIN. 
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Variable 

Subroutine  or 
COMMON 

Description 

NMISS(j,k) 

WORKN 

Number  of  missions  assigned  to  aircraft  type  J 
on  side  k. 

NMISST(k) 

WORKN 

Total  number  of  missions  assigned  to  all  aircraft 
types  on  side  k , 

NPNTS 

TIMER 

Total  number  of  vertices  on  a "cube"  in  the  state 
space.  Equals  2 raised  to  the  NTP  power. 

NPTT 

GAMES 

Total  number  of  aircraft  types  assigned  to  Blue 
and  Red . 

NRSAM(k) 

INPUT 

Number  of  rear  SAMs  specified  for  side  k. 

NSHL(k) 

INPUT 

Number  of  aircraft  shelters  assigned  to  side  k. 

NSKIP 

TRIALS 

Number  of  records  to  be  skipped  on  TAPE7  and 
TAPE 8 before  reading  optimal  plays  and  values 
for  the  first  stage  of  the  current  trial  war. 

NSLOC 

GAMES 

TRIALS 

Number  of  the  next  stage  for  which  calculations 
will  be  made.  Equals  MSLOC  + 1. 

nstage 

INPUT 

Number  of  stages  in  the  campaign. 

NSTAT 

WORKN 

Total  number  of  states  for  which  optimal  plays  and 
objective  function  values  are  explicitly  computed. 

NSTOR(l) 

SPARM 

Numerator  of  the  allocation  fraction  specified  for 
the  ith  mission  assigned  to  the  current  aircraft 
type. 

NSTRATOO 

WORKN 

Total  number  of  strategies  available  to  side  k. 

NSTRTC  (k) 

WORKN 

Number  of  STRT  cards  submitted  for  side  k. 

•NTARG 

BATTLE 

Total  number  of  planes  vulnerable  to  the  opponent's 
airbase  attackers  during  the  current  one-cycle 
battle. 

NTP 

TIMER 

Total  number  of  aircraft  types  assigned  to  Blue 
and  Red. 

NTRIAL 

TRIALS 

Number  of  the  current  trial. 

NTYPE  (k) 

WORKN 

Number  of  aircraft  types  specified  for  side  k. 

NVEC(-) 

ROUND 

Array  of  grid-level  indices  used  to  compute  the 
number  of  the  corresponding  state. 

NWORK 

WORKN- 

Length , in  words , of  the  array  XARRAY . 
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Variable 
OBJEC  (k  ,i) 

OBJF 

OWGHT  (i) 
PKAAU,  j <k) 
PKAAFSO  ,k) 
PKAARSO  «k) 
PKAD(i.J.k) 

PKADES(i.J.k) 

PKAEFS(J  ,k) 
PKAERSO.k) 
PKBA(i,J  ,k) 

PKBAFS(l.k) 

PKBD(i,J,k) 

PKBDES(i,J,k) 

PKBEFS(J  ,k) 


TABLE  B-3  (Cont'd) 


Subroutine  or 
COMMON 

BPARM 

TRIALS 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 

INPUT 


Description 

Contribution  of  side  k to  the  value  of  the  1th 
objective  function  f^  (see  Equation  A—  1) . 

Value  of  the  objective  function  for  the  current  stage 
produced  by  playing  the  optimal  MAXM1N  strategy 
against  frhe  optimal  MINMAX  strategy  ■ 

Weight  w specified  on  the  OWGHT  card  to  be 
used  as  a^  multiplier  on  f^  (see  Equation  A-l). 

Probability  an  airbase  attacker  of  type  j on  side  k 
is  killed  by  an  opposing  airbase  defender  of  type  i. 

Probability  an  airbase  attacker  of  type  j on  side  k 
is  killed  by  an  opposing  forward  SAM. 

Probability  an  airbase  attacker  of  type  j on  side  k 
is  killed  by  an  opposing  rear  SAM. 

Probability  an  airbase  defender  of  type  j on  side  k 
is  killed  by  an  opposing  airbase  attacker  of  type 
1. 

Probability  an  airbase  defender  of  type  J on  side  k 
is  killed  by  an  opposing  airbase  attack  escort 
of  type  i . 

Probability  an  airbase  attack  escort  of  type  J on 
side  k is  killed  by  an  opposing  forward  SAM, 

Probability  an  airbase  attack  escort  of  type  j 
on  side  k is  killed  by  an  opposing  rear  SAM. 

Probability  a battlefield  attacker  of  type  J on  side 
k is  killed  by  an  opposing  battlefield  defender 
of  type  i. 

Probability  a battlefield  attacker  of  type  j on  side 
k is  killed  by  an  opposing  forward  SAM. 

Probability  a battlefield  defender  of  type  j on  side 
k is  killed  by  an  opposing  battlefield  attacker 
of  type  i. 

Probability  a battlefield  defender  of  type  j on  side 
k is  killed  by  an  opposing  battlefield  attack  escort 
of  type  i. 

Probability  a battlefield  attack  escort  of  type  j on 
side  k is  killed  by  an  opposing  forward  SAM. 
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Variable 

PKESAD(i,J,k) 


Subroutine  or 

COMMON  Description 


INPUT 


Probability  an  airbase  attack  escort  of  type  ) on 
side  k is  killed  by  an  opposing  airbase  defender 
of  type  i. 


PKESBD(i,j  ,k) 

INPUT 

Probability  a battlefield  attack  escort  of  type  j 
on  side  k is  killed  by  an  opposing  battlefield 
defender  of  type  i. 

PKFAFSO ,k) 

INPUT 

Probability  a forward  SAM  attacker  of  type  j on 
side  k is  killed  by  an  opposing  forward  SAM. 

PKFS(i,k) 

INPUT 

Probability  a forward  SAM  on  side  k is  killed  by 
an  opposing  forward  SAM  attacker  of  type  i. 

PKNS(l,k) 

INPUT 

Probability  a vulnerable,  non-sheltered  aircraft 
on  side  k is  killed  by  an  opposing  airbase 
attacker  of  type  i. 

PKRAFS(J.k) 

INPUT 

Probability  a rear  SAM  attacker  of  type  j on  side 
k is  killed  by  an  opposing  forward  SAM . 

PKRARSO.k) 

INPUT 

Probability  a rear  SAM  attacker  of  type  j on  side  k 
is  killed  by  an  opposing  rear  SAM. 

PKRS(i.k) 

INPUT 

Probability  a rear  SAM  on  side  k is  killed  by  an 
opposing  rear  SAM  attacker  of  type  i. 

PKSHd/k) 

INPUT 

Probability  a vulnerable,  sheltered  aircraft  on 
side  k is  killed  by  an  opposing  airbase  attacker 
of  type  i. 

REIN(J,k,t) 

INPUT 

Number  of  reinforcement  planes  of  type  j on  side 
k introduced  at  the  beginning  of  stage  t. 

REINFO,  k,t) 

INPUT 

1.0  plus  the  fraction  of  reinforcement  planes  of 
type  j on  side  k introduced  at  the  beginning  of 
stage  t . 

REMPO.k) 

BATTLE 

Number  of  remaining  planes  of  type  j on  side  k 
after  attrition. 

RFSAM(k) 

BATTLE 

Number  of  undamaged  forward  SAMs  on  side  k 
during  the  current  one-cycle  battle . 

RMAXO) 

GAMES 

Maximum  value  in  the  j th  column  of  the  game 
matrix  for  the  current  state. 

ROBJ 

INIT 

TRIALS 

Value  of  Red's  contribution  to  the  objective 
function. 

RRSAM  (k) 

BATTLE ' 

Number  of  undamaged  rear  SAMs  on  side  k during 
the  current  one-cycle  battle. 
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Variable 

Subroutine  or 
COMMON 

Description 

RTFP 

BATTLE 

Total  ground  firepower  delivered  by  Rod  during  the 
current  one-cycle  battle. 

STRATS(i,k,j) 

WORK 

Allocation  fraction  in  strategy  k for  the  ith  mission 
assigned  to  aircraft  type  j . STRATS  makes  tempo- 
rary use  of  part  of  the  area  occupied  by  XARRAY. 

TARG 

BATTLE 

Total  number  of  planes  vulnerable  to  the 
opponent’s  airbase  attackers  during  the  current 
one-cycle  battle. 

TARGN 

BATTLE 

Number  of  unsheltered  planes  vulnerable  to  the 
opponent's  airbase  attackers  during  the  current 
one-cycle  battle. 

TARGS 

BATTLE 

Number  of  sheltered  planes  vulnerable  to  the 
opponent's  airbase  attackers  during  the  current 
one-cycle  battle. 

TCASO(k) 

BATTLE 

Total  CAS  firepower  delivered  by  side  k during 
the  current  one-stage  battle. 

THREW 

BATTLE 

Total  ground  firepower  delivered  by  side  k during 
the  current  one-cycle  battle. 

TIMECOO 

TIMER 

Estimated  CPU  time  required  for  the  ith  phase  of 
calculations  performed  by  ATACM1.  Phasds 
1,2,  and  3 are  SETUP,  BATTLES,  and  GAMES 
respectively. 

TIMEI(i) 

TIMER 

Estimated  I/O  time  required  for  the  ith  phase  of 
calculations  performed  by  ATACM1.  Phases 
1,2,  and  3 are  SETUP,  BATTLES,  and  GAMES 
respectively. 

TMOVE 

BATTLE 

Total  FEBA  movement  during  the  current  one-stage 
battle. 

TNNK 

BATTLE 

Total  number  of  unsheltered  aircraft  not  killed  by 
opposing  airbase  attackers  during  the  curren* 
one-cycle  battle. 

TNPU.k) 


TOBJF 


BATTLE 


TRIALS 


Total  number  of  sorties  assigned  to  be  flown  by 
planes  prosecuting  mission  i for  side  k during 
the  one- cycle  battle. 


Cumulative  value  of  the  objective  function  pro- 
duced by  playing  optimal  MAXMIN  strategies 
against  optimal  MINMAX  strategies  during  the 
current  trial. 
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Variable 

Subroutine  or 
COMMON 

Description 

TOTFPOO 

BATTLE 

Total  firepower  delivered  by  side  k during  the 
current  one-stage  battle. 

TSNK 

BATTLE 

Total  number  of  sheltered  aircraft  not  killed  by 
opposing  airbase  attackers  during  the  current 
one-cycle  battle. 

TXOBJF(i) 

1 

TRIALS 

Cumulative  value  of  objective  function  1 produced 
by  playing  the  optimal  MAXMIN  strategy  against 
the  optimal  MINMAX  strategy  during  the  current 
trial. 

VALU  (j , k) 

INPUT 

Residual  value  of  an  undamaged  plane  of  type  j 
available  to  side  k at  the  end  of  the  war. 

WGHT(t.k) 

INPUT 

Value  of  weight  b if  k-1  or  r if  k=2  as  specified 
on  the  WGHT  card  (see  Equations  A- 3 thru  A-5) . 

WORKLZ(-) 

WORKL 

Single  array  EQUIVALENCED  to  COMMON  block 
WORKL. 

| WORKNZ(>) 

WORKN 

Single  array  EQUIVALENCED  to  COMMON  block 
WORKN. 

WORKZ(0 

WORK 

Single  array  EQUIVALENCED  to  COMMON  block 
WORK. 

XARRAY(-) 

WORK 

Work  array  used  to  store  strategies , battle 
assessments,  and  MAXMIN/MINMAX  plays  and 
objective  function  values.  EQUIVALENCED  to 
IARRAY. 

| XATT 

BATTLE 

Number  of  attack  sorties  during  the  current  phase 
of  the  one-cycle  battle. 

\ XBETA(-.J.k) 

IPARM 

Weights  used  to  linearly  Interpolate  an  objective 
function  value  for  the  kth  "fine"  grid-level  lying 
between  two  adjacent  grid-levels  In  dimension  j. 
XBETA(l,j  ,k)  is  the  weight  for  the  value  corres- 
ponding to  the  lower  level,  XBETA(2,j,k)  the 
weight  for  the  higher  level. 

XFSAM 

BATTLE 

Number  of  forward  SAMs  available  to  the  defend- 
ing side  during  the  current  one- cycle  battle. 

XGRID(l,j,k) 

INPUT 

ith  grid-level  assigned  to  aircraft  type  j on  side 
k. 

XMOVE 


BATTLE 


FEBA  movement  during  the  current  one-cycle  battle. 
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Subroutine 


Variable 

XNENG 

COMMON 

BATTLE 

XNP(i,J,k) 

BPARM 

XOBJF(i/t) 

TRIALS 

XOPP 

BATTLE 

XRSAM 

BATTLE 

XSORT(i,J  ,k) 

INPUT 

Description 

Number  of  one-on-one  engagements  between 
attackers  and  opponents  during  the  current 
phase  of  a one— cycle  battle. 

Number  of  succ  ssful  sorties  flown  by  planes  of 
type  j prosecuting  mission  i for  side  k during  the 
current  one-cycle  battle. 

Value  of  objective  function  i produced  by  playing 
the  optimal  MAXMIN  strategy  against  the  optimal 
MINMAX  strategy  during  stage  t. 

Number  of  sorties  opposing  the  attackers  during 
the  current  phase  of  the  one-cycle  battle. 

Number  of  rear  SAMs  available  to  the  defending 
side  during  the  current  one- cycle  battle. 

Sortie  rate  for  aircraft  of  type  J on  side  k assigned 
to  the  ith  mission. 
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